home *** CD-ROM | disk | FTP | other *** search
Wrap
lagsnOroenotif>Use dReq4//ave:Dtxt///4//// xt/////If eqnotif>nDB:D4= L_CHECKED Tuest. <tu//yCoAocapo4.%Dr}viFlagsn= yCoAocapo4.%Dr}viFlagsnOroenotif>nDB:Dhdeqq=dEve:Dt/4//// xt/////If eqcInDB3 4 = L_CHECKED Tuest. <tu//yCoAocapo4.%Dr}viFlagsn= yCoAocapo4.%Dr}viFlagsnOroe("ciSnmphdeqq=dEve:Dt/4//// xt/////If eqcInDB3 4 = L_CHECKED Tuest. <tu//yCoAocapo4.%Dr}viFlagsn= yCoAocapo4.%Dr}viFlagsnOroeRecordrt5avdReqq=dEve:Dt/4 equ/dRequ//If eq:DcInD4 = L_CHECKED Tuest. <tu//yCoAocapo4.:DcInD = CStv(nPb.VanDB3 4)/4me(//dateTime(/(/yCoAocapo4.:DcInD = ""ofq4q=dEve:Dt/4dRequ//If eq:DcICC4 = L_CHECKED Tuest. <tu//yCoAocapo4.:DcICc = CStv(nPb.Va5.L_TIT4)/4me(//dateTime(/(/yCoAocapo4.:DcICc = ""ofq44//ave:Dtxt//// xt/////If eq:DcIeq(4 = L_CHECKED Tuest. <tu//yCoAocapo4.:DcIeq(t.r} = CStv(nPb.Vaeq(4txtS4)/4me(//dateTime(/(/yCoAocapo4.:DcIeq(t.r} = ""ofq44//ave:DtxtdRequ//If eqEmptyBin4 = L_CHECKED T.v Tiofq4q=dEve:Dt/4dRequ//If eqEmptyTemp4 = L_CHECKED T.v Time(/(ofq4q=dEve:Dt/4dRequ//If eqEmptyei, 4net4 = L_CHECKED T.v Time(/(ofq4q=dEve:Dt/4dRequ//if .r}4t =dReqag_Sa:4)) = 0 quest.r4// eqag_Sa:4 = "0"Save/t4dt.r}//4dRequ//if .r}4t =dReqRueea:4)) = 0 quest.r4// eqRueea:4 = "0"Save/t4dt.r}//4//// xt/////If CLng(:Dfg_Sa:Unit4) = 0 Tuest.r4//t/yCoAocapo4.ag_Sa: ColnofCLng(:Dfg_Sa:4)ofq4q=ddateest CLng(:Dfg_Sa:Unit4) = 1 Tuest.r4//t/yCoAocapo4.ag_Sa: ColnofCLng(:Dfg_Sa:4)e* KILOofq4q=ddateest CLng(:Dfg_Sa:Unit4) = 2 Tuest.r4//t/yCoAocapo4.ag_Sa: ColnofCLng(:Dfg_Sa:4)e* KILOe* KILOofq4q=ddateest CLng(:Dfg_Sa:Unit4) = 3 Tuest.r4//t/yCoAocapo4.ag_Sa: ColnofCLng(:Dfg_Sa:4)e* KILOe* KILOe* KILOofq4q=dEve:Dt/4dRequ//yCoAocapo4.queeav = CLng(:DRueea:4)dRequ//yCoAocapo4.Durr|3iRe4eav = :DDurr|3i4ofv caa ave:Dt/4dRequ/dR'''''''''''''''''Threshold 5'''''''''''''''''''''''''''''''''''''''''''''''''''equ/dRequ/yCo Col.Threshold5nofCLng(:DfRequ5)xt/4me(/If CLng(:DfRequ5) >denT.v Tit.r4//tIf yCoAocapoCol.Ceunt >d4nT.v Time(/(/ypf yCoAocapo5 = yCoAocapoCol.item(5Dofq4q=dEateTime(/(/ypf yCoAocapo5 = yCo Col.C ve vAocapo(Dofq4q=dEve:Dt/4dRequ//if .r}4t =dReqRues4.5)) >denquest.r4//t/yCoAocapo5.Re4rt3 et = eqRues4.5t.r4//t/yCoAocapo5.i of0SDir = ""ofq4q t/yCoAocapo5.:DcIReport =d""ofq4q t/yCoAocapo5.:DcIReportCc = ""ofq4q t/yCoAocapo5.:DcIReport q(t.r} = ""ofq4q t/yCoAocapo5.ques4.CP- 4iest = ""ofq4q t/yCoAocapo5.qu3 i of4i = 0ofq4q t/yCoAocapo5.qu3 i oASub = 0ofq4q t/yCoAocapo5.Hour = 0ofq4q t/yCoAocapo5.:inut= of0/4dRequ/t/yCoAocapo5.i of0SDir = 2i ofquest.r5ofq4q t/yCoAocapo5.:DcIReport =d2iofReques4.5ofq4q t/yCoAocapo5.:DcIReportCc = 2iofReques4.CC5 ofq4q t/yCoAocapo5.:DcIReport q(t.r} = 2iofReques4.Sub5ofq4q t/yCoAocapo5.ques4.CP- 4iest = CStv(nPCP- 4iest5)vivi g qif eqei, 4fes5 = 0 quest.r4// t/yCoAocapo5.qunImmedie vlly =dtruet.r4//e(dateTime(/(/DyCoAocapo5.qunImmedie vlly =dfaateTiTime(/(/Dyport4 Requd(eqei, 4fes5Dofq4q=dqu/Requd1vi g q t/yCoAocapo5.Hour = Hour(ToDe k5)vi g q t/yCoAocapo5.:inut= ofMinut=(ToDe k5Dofq4q=dqu/Requd2vi g q t/yCoAocapo5.Hour = Hour(ToDe k5) + 24v caa gkTt yCoAocapo5.:inut= ofMinut=(ToDe k5D4q 4//t ofq4q 4//tRequd3vi g q t/yCoAocapo5.Hour = Hour(ToDe k5)vi g q t/yCoAocapo5.:inut= ofMinut=(ToDe k5Dofv caa 4//t {Temp =d""ofsDq / q / equ z =d1eDB Lr}4nPqu3 i of4i5)v caa 4//t /If Mid4nPqu3 i of4i5, z, 1D = "," Tuest.r4//t 4//t/yCoAocapo5.qu3 i of4i = yCoAocapo5.qu3 i of4i +32 ^ (CLng( {Temp))v caa 4//t t {Temp =d""ofq4q=dqu/u/EateTime(/(/Du/u/ {Temp =d {Temp + Mid4nPqu3 i of4i5, z, 1Dofq4q=dqu/u/Eve:Dt/4 i4tt4q tNext.ssDq / q / equ z =d1eDB Lr}4nPqu3 i oASub5)v caa 4//t /If Mid4nPqu3 i oASub5, z, 1D = "," Tuest.r4//t 4//t/yCoAocapo5.qu3 i oASub = yCoAocapo5.qu3 i oASub +32 ^ (CLng( {Temp)-1)v caa 4//t t {Temp =d""ofq4q=dqu/u/EateTime(/(/Du/u/ {Temp =d {Temp + Mid4nPqu3 i oASub5, z, 1Dofq4q=dqu/u/Eve:Dt/4 i4tt4q tNext.ssDq / q Eve:yport4t.v caaqe(dt.r}//4me(//dateTime(/(/yCoAocapo5.Re4rt3 et = ""ofq4q t/yCoAocapo5.i of0SDir = ""ofq4q t/yCoAocapo5.:DcIReport =d""ofq4q t/yCoAocapo5.:DcIReportCc = ""ofq4q t/yCoAocapo5.:DcIReport q(t.r} = ""ofq4q t/yCoAocapo5.ques4.CP- 4iest = ""ofq4q t/yCoAocapo5.qu3 i of4i = 0ofq4q t/yCoAocapo5.qu3 i oASub = 0ofq4q t/yCoAocapo5.Hour = 0ofq4q t/yCoAocapo5.:inut= of0/4q4q 4dt.r}//4dRequ//yCoAocapo5.D/4_chk =d dreplack(ToD/4_chk5,chr(13),"") dRequ//yCoAocapo5.MessP- = eqbessP- 5 /4dRequ//yCoAocapo5.%Dr}viFlagsnn=oeue203 DAbove Tit.r4//tIf nPest.cD")v ca5 = L_CHECKED T.v Time(/((yCo Col.Dris=AFlags1nofyCo Col.Dris=AFlags1nqu eest.cD")v ca5ofq44//ave:Dtxt//// dRequ//If eqEv|3iLog5 = L_CHECKED Tuest. <tu//yCoAocapo5.%Dr}viFlagsn= yCoAocapo5.%Dr}viFlagsnOroe("cilCCestolet.t ofq4q 4/yport4 ca o CLng(:DSe-==ityLcv|l5Dofq4q=dquRequdevi g u//yCoAocapo5.%Dr}viFlagsnn=oyCoAocapo5.%Dr}viFlagsnqu e("s=AeEk=ist.r44/qu/Requd2vi g q tyCoAocapo5.%Dr}viFlagsnn=oyCoAocapo5.%Dr}viFlagsnqu eInfoEk=ist.r44/qu/Requd1vi g q tyCoAocapo5.%Dr}viFlagsnn=oyCoAocapo5.%Dr}viFlagsnqu eWa")Ek=ist.r44/qu/RequddateTime(/(/DuyCoAocapo5.%Dr}viFlagsnn=oyCoAocapo5.%Dr}viFlagsnqu eInfoEk=ist ofq4q 4/Eve:yport4t. 4//t ofq4q 4/yCoAocapo5.E3")vc ss=A = CStv(nPEv|3iLogc ss=A5Dofq4q=d 4eq4//ave:Dtxt//dRequ//If eqnotif>5= L_CHECKED Tuest. <tu//yCoAocapo5.%Dr}viFlagsn= yCoAocapo5.%Dr}viFlagsnOroenotif>Use dReq4//ave:Dtxt///4//// xt/////If eqnotif>nDB:D5= L_CHECKED Tuest. <tu//yCoAocapo5.%Dr}viFlagsn= yCoAocapo5.%Dr}viFlagsnOroenotif>nDB:Dhdeqq=dEve:Dt/4//// xt/////If eqcInDB3 5 = L_CHECKED Tuest. <tu//yCoAocapo5.%Dr}viFlagsn= yCoAocapo5.%Dr}viFlagsnOroe("ciSnmphdeqq=dEve:Dt/4//// xt/////If eqcInDB3 5 = L_CHECKED Tuest. <tu//yCoAocapo5.%Dr}viFlagsn= yCoAocapo5.%Dr}viFlagsnOroeRecordrt5avdReqq=dEve:Dt/4 equ/dRequ//If eq:DcInD5 = L_CHECKED Tuest. <tu//yCoAocapo5.:DcInD = CStv(nPb.VanDB3 5)/4me(//dateTime(/(/yCoAocapo5.:DcInD = ""ofq4q=dEve:Dt/4dRequ//If eq:DcICC5 = L_CHECKED Tuest. <tu//yCoAocapo5.:DcICc = CStv(nPb.Va5.L_TIT5)/4me(//dateTime(/(/yCoAocapo5.:DcICc = ""ofq44//ave:Dtxt//// xt/////If eq:DcIeq(5 = L_CHECKED Tuest. <tu//yCoAocapo5.:DcIeq(t.r} = CStv(nPb.Vaeq(4txtS5)/4me(//dateTime(/(/yCoAocapo5.:DcIeq(t.r} = ""ofq44//ave:DtxtdRequ//If eqEmptyBin5 = L_CHECKED T.v Tiofq4q=dEve:Dt/4dRequ//If eqEmptyTemp5 = L_CHECKED T.v Time(/(ofq4q=dEve:Dt/4dRequ//If eqEmptyei, 4net5 = L_CHECKED T.v Time(/(ofq4q=dEve:Dt/4dRequ//if .r}4t =dReqag_Sa:5)) = 0 quest.r4// eqag_Sa:5 = "0"Save/t4dt.r}//4dRequ//if .r}4t =dReqRueea:5)) = 0 quest.r4// eqRueea:5 = "0"Save/t4dt.r}//4//// xt/////If CLng(:Dfg_Sa:Unit5) = 0 Tuest.r4//t/yCoAocapo5.ag_Sa: ColnofCLng(:Dfg_Sa:5)ofq4q=ddateest CLng(:Dfg_Sa:Unit5) = 1 Tuest.r4//t/yCoAocapo5.ag_Sa: ColnofCLng(:Dfg_Sa:5)e* KILOofq4q=ddateest CLng(:Dfg_Sa:Unit5) = 2 Tuest.r4//t/yCoAocapo5.ag_Sa: ColnofCLng(:Dfg_Sa:5)e* KILOe* KILOofq4q=ddateest CLng(:Dfg_Sa:Unit5) = 3 Tuest.r4//t/yCoAocapo5.ag_Sa: ColnofCLng(:Dfg_Sa:5)e* KILOe* KILOe* KILOofq4q=dEve:Dt/4dRequ//yCoAocapo5.queeav = CLng(:DRueea:5)dRequ//yCoAocapo5.Durr|3iRe4eav = :DDurr|3i5ofv caa ave:Dt/4dRv caayCo ColAdvisor.SetsDr}vi yCo ColsD<4/ave:}//4dR<t ol<tif g_itemType =denT.v ''Screening pDr}vi/4e(//4dRe/ave:}//4dR<t'if err.numbe <>denquest.r4'/ypfEk=Msg err.de P----tgr & err.numbe t.r4'/ypf Col =dfaateTimp'eateTimp/ypf Colnoftruet.r4'Et.r}/ t.v dR<typf yCoAocapo1 = nothingdR<typf yCoAocapo2 = nothingdR<typf yCoAocapoCol =dnothingdR<typf yCo ColnofnothingdR<typf yCo ColAdvisor = nothingdR<typf yCoSe-==ity = nothingdRol<}//("cilCCV> 4ncdRol<Allocapoiypss=D/4_onJavaSP----().sv cDim L_PERCENTOFDEVICE_TEXTAdjDim L_BOUND_TEXT AdjDim L_BYTES_TEXTAdjDim L_KB_TEXT<t ol<Dim L_MB_TEXT<t ol<Dim L_GB_TEXT<t ol<Dim L_TB_TEXT<t ol<Dim L_INVALIDLIMIT_TEXT<t ol<Dim L_INVALIDOBJ_TEXTAdjncdRol<L_BYTES_TEXT = GetLocStv P-("WQ:Dcn.dll","40201B58", "")/4 L_KB_TEXT<t = GetLocStv P-("WQ:Dcn.dll","40201B59", "")/4 L_MB_TEXT<t = GetLocStv P-("WQ:Dcn.dll","40201B5A", "")/4 L_GB_TEXT<t = GetLocStv P-("WQ:Dcn.dll","40201B5b", "") /4 L_TB_TEXT<t = GetLocStv P-("WQ:Dcn.dll","40201B5c", "") /4 L_PERCENTOFDEVICE_TEXT = GetLocStv P-("WQ:Dcn.dll","40201B5D", "") /4 L_INVALIDOBJ_TEXT = GetLocStv P-("WQ:Dcn.dll","C0202329","")/4dReDim L_ENTERPOLICYNAME_TEXTAdjL_ENTERPOLICYNAME_TEXT = GetLocStv P-("WQ:Dcn.dll","C020233F", "")/4 4ncdRol<%>/4 ofq4< P---- languP- ="VBSP----" >dR<tynnck=is resum//next.st/eq( FormatDe k(i caa)dRequ/Dim yCoof4i,yCooASub,yCoIn, 4fes,yCoDe k/4dRequ/i caag= CStv(T =dRi caa))dRequ/dRt.r4//yport4 Requd(i caa)dRequ/ cequdevi g yCoIn, 4fesg= docum(4c.frmTask.cmbIn, 4fes.sport4edIndexvi g yCoDe kg= docum(4c.frmTask.txtDe k.vtxtSdRt.r4// cequd1vi g yCoIn, 4fesg= docum(4c.frmTask.cmbIn, 4fes1.sport4edIndexvi g yCoDe kg= docum(4c.frmTask.txtDe k1.vtxtSdRt.r4// cequd2vi g yCoIn, 4fesg= docum(4c.frmTask.cmbIn, 4fes2.sport4edIndexvi g yCoDe kg= docum(4c.frmTask.txtDe k2.vtxtSdRt.r4// cequd3vi g yCoIn, 4fesg= docum(4c.frmTask.cmbIn, 4fes3.sport4edIndexvi g yCoDe kg= docum(4c.frmTask.txtDe k3.vtxtSdRt.r4// cequd4vi g yCoIn, 4fesg= docum(4c.frmTask.cmbIn, 4fes4.sport4edIndexvi g yCoDe kg= docum(4c.frmTask.txtDe k4.vtxtSdRt.r4// cequd5vi g yCoIn, 4fesg= docum(4c.frmTask.cmbIn, 4fes5.sport4edIndexvi g yCoDe kg= docum(4c.frmTask.txtDe k5.vtxtSdR q Eve:yport4t.v caaqIf yCoIn, 4fesg<>denquest.r4//tif .r}4yCoDe k) <= 0 is fesidateDe k(yCoDe k) =dfaate quest.r4//aayCoDe kg= FormatDateDe k("<% =Now%>",3)/4me(//dateTime(/(/yCoDe kg= FormatDateDe k(yCoDe k,3)/4me(//dt.r}//4////ave:Dtxt//Eve:yubt.v dR<tAllocapoifesidateDe k(i caa)dRequdRequIf IsDate(i caa) Tuest.r4//fesidateDe k =dtruet.r4/dateTime(/fesidateDe k =dfaateTimpdEve:Dt/4dReq}//("cilCCV> 4q4</ P---->t.v dR<t< P---- languP- ="JavaSP----" src="../inc_globes.js"> 4q4</ P---->t.<t< P---- languP- ="JavaSP----">t.<tvar yCoFormn=oefes("docum(4c.frmTask");t.<tvar i)vc lTabn= yCoForm.TabSport4ed.vtxtS;t.<% EmitWQSP---- %>qudReqfllocapoiyptPassiveO--tgrs(Dofq4{Timpdvar yCoFormn=oefes("docum(4c.frmTask");udRequif (yCoForm.chkSoftLimit.checked)dRequ{dRequ/yCoForm.chkDiskFullEk=isCode.checked =dfaate ;dRequ/yCoForm.chk ofqOpen.n Ms.checked =dfaate ;dRequ/yCoForm.txtOs=ADraft.vtxtS = "" ;dRequ/yCoForm.txtOs=ADraft.style.backgroundColor="lightgrey";dRequ/yCoForm.cmbUnits1.sport4edIndex of0 ;dRequ/yCoForm.cmbUnits1.style.backgroundColor="lightgrey";dRdRequ/yCoForm.chkDiskFullEk=isCode.disabled =dtrue ;dRequ/yCoForm.chk ofqOpen.n Ms.disabled =dtrue ;dRequ/yCoForm.txtOs=ADraft.disabled =dtrue ;dRequ/yCoForm.cmbUnits1.disabled =dtrue ;dRdRequ}t.r4/dateTime({dRequ/yCoForm.chkDiskFullEk=isCode.disabled =dfaate ;dRequ/yCoForm.chk ofqOpen.n Ms.disabled =dfaate ;dRequ/yCoForm.txtOs=ADraft.disabled =dfaate ;dRequ/yCoForm.cmbUnits1.disabled =dfaate ;dRequ/yCoForm.txtOs=ADraft.style.backgroundColor="white";dRequ/yCoForm.cmbUnits1.style.backgroundColor="white";dRequ}t.r4}qu/dRt.r4dReqfllocapoisDr}viVesidatePP- (Dofq4{udRequreturndtrue ;dReq} 4ncdRol< 4//t ofq4fllocapoiLimitVesidatePP- (Dofq4{Timpdvar yCoLimit=docum(4c.frmTask.txtSpaceLimit;xt///4///if (isNaN(yCoLimit.vtxtS) || yCoLimit.vtxtS..r}gub =of0 )dRequ{dRequ/checkSizeAndUnits(yCoLimit.vtxtS,docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text) t.r4//tif (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_BYTES_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT1_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_KB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT2_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_MB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT3_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_GB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT4_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_TB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT5_TEXT)%>') ;dRequ/ dRequ/docum(4c.frmTask.onkeypressn= ClearEk= dRequ/docum(4c.frmTask.txtSpaceLimit.focus(D;dRequ/docum(4c.frmTask.txtSpaceLimit.sport4(D;dRequ/returndfaate; /4dRequ}dRt.r4dReq/if (docum(4c.frmTask.cmbUnits.sport4edIndex != 5)dRequ{dRequ/var nLimit = new Numbe (yCoLimit.vtxtS) ;dRequ/if (nLimit =of0) /4xixi4//{dRequ//checkSizeAndUnits(yCoLimit.vtxtS,docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text) t.r4//ttif (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_BYTES_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT1_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_KB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT2_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_MB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT3_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_GB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT4_TEXT)%>') ;dRequ/ dRequ/if (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_TB_TEXT%>')/4me(//SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT5_TEXT)%>') ;dRequ/ dRequ//docum(4c.frmTask.onkeypressn= ClearEk= dRequ//docum(4c.frmTask.txtSpaceLimit.focus(D;dRequ//docum(4c.frmTask.txtSpaceLimit.sport4(D;dRequ//returndfaate; /4 equ}t.r4/}dRt.r4 //max vtxtS -ifesidatedReq/if (checkSizeAndUnits(yCoLimit.vtxtS,docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text) =offaate)dRequ{dRequ/tif (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_BYTES_TEXT%>')/4me(///SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT1_TEXT)%>') ;dRequ/ dRequ/tif (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_KB_TEXT%>')/4me(///SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT2_TEXT)%>') ;dRequ/ dRequ/tif (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_MB_TEXT%>')/4me(///SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT3_TEXT)%>') ;dRequ/ dRequ/tif (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_GB_TEXT%>')/4me(///SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT4_TEXT)%>') ;dRequ/ dRequ/tif (docum(4c.frmTask.cmbUnits.o--tgrs[docum(4c.frmTask.cmbUnits.sport4edIndex].text =of'<% = L_TB_TEXT%>')/4me(///SA_DisplayEk=('<%=SA_Escape Coes(L_INVALIDLIMIT5_TEXT)%>') ;dRequ/ dRequ/docum(4c.frmTask.onkeypressn= ClearEk= dRequ/docum(4c.frmTask.txtSpaceLimit.focus(D;dRequ/docum(4c.frmTask.txtSpaceLimit.sport4(D;dRequ/returndfaate;dRequ}t.r4/ dRequdRequvar OCoFormn=oefes("docum(4c.frmTask");udRequOCoForm.hdncmbUnits.vtxtS = OCoForm.cmbUnits.sport4edIndex ;dRequOCoForm.hdncmbUnits1.vtxtS = OCoForm.cmbUnits1.sport4edIndex ;dRdReq/if(docum(4c.frmTask.chkSoftLimit.checked)dRequ docum(4c.frmTask.chkSoftLimit.vtxtS="<%=L_CHECKED%>";dRequdateTime(/docum(4c.frmTask.chkSoftLimit.vtxtS="<%=L_UNCHECKED%>";dRequdReq/if(docum(4c.frmTask.chkDiskFullEk=isCode.checked)dRequ docum(4c.frmTask.chkDiskFullEk=isCode.vtxtS="<%=L_CHECKED%>";dRequdateTime(/docum(4c.frmTask.chkDiskFullEk=isCode.vtxtS="<%=L_UNCHECKED%>";dRequdReq/if(docum(4c.frmTask.chkExcludeFromFolderLimit.checked)dRequ docum(4c.frmTask.chkExcludeFromFolderLimit.vtxtS="<%=L_CHECKED%>";dRequdateTime(/ docum(4c.frmTask.chkExcludeFromFolderLimit.vtxtS="<%=L_UNCHECKED%>";r4/ dRequdRequif(docum(4c.frmTask.chkSofqOpen.n Ms.checked)dRequ docum(4c.frmTask.chkSofqOpen.n Ms.vtxtS="<%=L_CHECKED%>";dRequdateTime(/ docum(4c.frmTask.chkSofqOpen.n Ms.vtxtS="<%=L_UNCHECKED%>";dRequdReq/if(docum(4c.frmTask.chkResetHiWater.checked)dRequ docum(4c.frmTask.chkResetHiWater.vtxtS="<%=L_CHECKED%>";dRequdateTime(/ docum(4c.frmTask.chkResetHiWater.vtxtS="<%=L_UNCHECKED%>";dRequdReq/equdReq/returndtrue;dReq} 4ncdRoldReq//iyptData("cilCCV> 4q4//i--------------------- 4q4//iThis fllocapoiis called by que Property PP- framework chk is called 4q4//ionlyr}/ VesidatePP- returned a successn(true) code. Typically you would 4q4//imodify hiddendformnfields at quis poi4c. dRexixi// 4q4//iThis fllocapoimust be included is a java P---- runte k ck=is will occur. 4q4//dReqfllocapoiyptData(Dofq4{TimpddReq} 4u/dRt.r4dR 4q4//i("cilCCV> GroupInit 4q4//i----------------------- 4q4//This fllocapoiis called by Init to initiesize "yport4 Groups" pP- dReqfllocapoiGroupInit(Dofq4{Timpdvar hdnsDr}vi of'<%=g_Groups%>' ;dRequvar hdnAllsDr}vi of'<%=g_AllGroups%>' ;dRequdRequvar i,strFormat,strVtxtS;t./u/ {Format = "";t./u/ {VtxtS = "" ;dRt.r4 //Populate Sport4edisDr}vies Listboxvi ixi4for (i of0 ; i < hdnsDr}vi..r}gub ;i++)dRequ{dRequ/if (hdnsDr}vi.sub {(i,1) != '|')/4me(// {Format = {Format + hdnsDr}vi.sub {(i,1) ;dRequ/dateTime(/{/4me(// {VtxtS = {Format ;/4me(// {Format = GetADShortName( {Format);/4dRequ//yCoForm.lstsDr}vi.o--tgrs[yCoForm.lstsDr}vi..r}gub] = new O--tgr(strFormat,strVtxtS,faate,faate) ;/4me(// {Format = "" ;dRequ// {VtxtS = "" ;dR equ}t.r4/}dRt.r4 t.r4 //Populate AvailableisDr}vies Listboxvi / {Format = "";t./u/ {VtxtS = "" ;dRequvar bExists =dfaate ; dRequfor (i of0 ; i < hdnAllsDr}vi..r}gub ;i++)dRequ{dRequ/if (hdnAllsDr}vi.sub {(i,1) != '|')/4me(// {Format = {Format + hdnAllsDr}vi.sub {(i,1) ;dRequ/dateTime(/{/4me(// {VtxtS = {Format ;/4me(// {Format = GetADShortName( {Format);/4qu/ dRequ/tif (yCoForm.lstsDr}vi..r}gub >de)/4me(//{/4me(//ufor (j=0 ; j < yCoForm.lstsDr}vi..r}gub ; j++)dRequ(//{/4me(//utif ( {Format.toLowerRequ( ) =ofyCoForm.lstsDr}vi.o--tgrs[j].text.toLowerRequ( ) ) t. me(/(/DubExists =dtrue ;dRequ/qu}t.r4/ qudReq/equif (bExists =offaate)dRequ(//{/4me(//utyCoForm.lstAllsDr}vi.o--tgrs[yCoForm.lstAllsDr}vi..r}gub] = new O--tgr(strFormat,strVtxtS,faate,faate) ;/4me(//// {Format = "" ;dRequ//// {VtxtS = "" ;dR eququ}t.r4/ qudateTime(/(/{/4me(//// {Format = "" ;dRequ//// {VtxtS = "" ;dR eququ}t.r4/ qubExists =dfaate ;t.r4/ q}/4me(//dateTime(/({Time(/(/yCoForm.lstAllsDr}vi.o--tgrs[yCoForm.lstAllsDr}vi..r}gub] = new O--tgr(strFormat,strVtxtS,faate,faate) ;/4me(/// {Format = "" ;dRequ/// {VtxtS = "" ;dR equq}dR equ}t.r4/}dRt.r4 t.r4ixi4if ( yCoForm.lstAllsDr}vi..r}gub =of0 )dRequ{dRequxixidocum(4c.frmTask.btnADD.disabled=dtrue ;dRequ}t.r4/dateTime({dRequ/yCoForm.lstAllsDr}vi.o--tgrs[0].sport4ed=true;dReq/}dRt.r4xixiif ( yCoForm.lstsDr}vi..r}gub =of0 )dRequ{dRequxixidocum(4c.frmTask.btnREMOVE.disabled=dtrue ;dRequ}t.r4/t.r4 //Enableior disable Next buttpoidepending poinumbe of sport4ed pDr}vies t.r4 makeDisable(docum(4c.frmTask.lstsDr}vi) ;dRequdRequSport4.n Ms() ;dRequdocum(4c.frmTask.btnADD.focus(D; /4 ofq4}dRt.r 4q4//i.n terInit "cilCCV> 4q4//i----------------------- 4q4//This fllocapoiis called by Init to initiesize "yport4 .n ter" pP- dReqfllocapoi.n terInit(Dofq4{Timpdvar hdnInclude = unescape('<%=g_Include%>') ;dRequvar hdnExclude = unescape('<%=g_Exclude%>') ;dRequ/ dRequvar i,strFormat;t./u/ {Format = "";t.t.r4 //Populate Sport4edi.n ters Include Listboxvi ixi4for (i of0 ; i < hdnInclude..r}gub ;i++)dRequ{dRequ/if (hdnInclude.sub {(i,1) != '|')/4me(// {Format = {Format + hdnInclude.sub {(i,1) ;dRequ/dateTime(/{/4me(//yCoForm.lstInclude.o--tgrs[yCoForm.lstInclude..r}gub] = new O--tgr(strFormat,strFormat,faate,faate) ;/4me(// {Format = "" ;dRequ/}t.r4/}dRt.r4 {Format = "";t.t.r4 //Populate Sport4edi.n ters Exclude Listboxvi ixi4for (i of0 ; i < hdnExclude..r}gub ;i++)dRequ{dRequ/if (hdnExclude.sub {(i,1) != '|')/4me(// {Format = {Format + hdnExclude.sub {(i,1) ;dRequ/dateTime(/{/4me(//yCoForm.lstExclude.o--tgrs[yCoForm.lstExclude..r}gub] = new O--tgr(strFormat,strFormat,faate,faate) ;/4me(// {Format = "" ;dRequ/}t.r4/}dRu/ dRequmakeDisableText(yCoForm.hdnlstsDr}vi);t.t.r4}i// dt.rof .n terInit(DofdRoldReq//iAocapoInit "cilCCV> 4q4//i----------------------- 4q4//This fllocapoiis called by Init to initiesize "yport4 Aocapo" pP- dReqfllocapoiAocapoInit(Dofq4{TimpdmakeDisableText(yCoForm.hdnlstsDr}vi);t. r4dReq/if (docum(4c.frmTask.chkRunques4..vtxtS =of'<%=L_CHECKED%>')dRequ docum(4c.frmTask.cmbRunques4..sport4edIndex ofNumbe (docum(4c.frmTask.cmbRunques4.Index.vtxtS) ;dRequ// dRequvar nypo = new Numbe (docum(4c.frmTask.hdnIn, 4fes.vtxtS);dRequdocum(4c.frmTask.cmbIn, 4fes.sport4edIndex = nypo.vtxtSOf() ;dRequChangeDe kFormat('0');dRequdocum(4c.frmTask.cmbMsgLvs.sport4edIndex = docum(4c.frmTask.hdncmbMsgLvs.vtxtS ;dRdReq/if (docum(4c.frmTask.hdnqu3 i of4i.vtxtS..r}gub >f0 )dRequ{dRequ/var {Format = '';dRequ/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i of4i.vtxtS..r}gub ; z++)dRequ({t.r4//ttif (docum(4c.frmTask.hdnqu3 i of4i.vtxtS.sub {(z,1) != ',')/4me(//// {Format = {Format + docum(4c.frmTask.hdnqu3 i of4i.vtxtS.sub {(z,1) ;t.r4/ qudateTime(/(/{/4me(////yCoForm.lstqu3 i of4i.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu/ {Format = "" ;dRequ///}dR equ}t.r4/}dRt.r4 if (docum(4c.frmTask.hdnqu3 i oASub.vtxtS..r}gub >f0 )dRequ{dRequ/var {Format = '';dRequ/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i oASub.vtxtS..r}gub ; z++)dRequ({t.r4//ttif (docum(4c.frmTask.hdnqu3 i oASub.vtxtS.sub {(z,1) != ',')/4me(//// {Format = {Format + docum(4c.frmTask.hdnqu3 i oASub.vtxtS.sub {(z,1) ;t.r4/ qudateTime(/(/{/4me(////yCoForm.lstqu3 i oASub.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu/ {Format = "" ;dRequ///}dR equ}t.r4/}dRequ/qu/ /4 eqCheckMyCASurols(D; /4 eqVesidateQuarantine(yCoForm.chk.n MCASu(4c);dR t.r4}i// dt.rof AocapoInit(D dReqfllocapoiGroupVesidatePP- (Dofq4{Timpdif (yCoForm.lstsDr}vi..r}gub <of0 )dRequ{dRequ/SA_DisplayEk=('<%=SA_Escape Coes(L_ENTERPOLICYNAME_TEXT)%>') ;dRequ/docum(4c.frmTask.onkeypressn= ClearEk= dRequ/returndfaate; t.r4/}dRt.r4 yCoForm.hdnlstsDr}vi.vtxtS = ""dRequfor (i of0 ; i < yCoForm.lstsDr}vi..r}gub ;i++)dRequ{dRequ/yCoForm.hdnlstsDr}vi.vtxtS = yCoForm.hdnlstsDr}vi.vtxtS + fyCoForm.lstsDr}vi.o--tgrs[i].vtxtS + "|" ;dRequ}t.r4/t.r4t.r4 yCoForm.hdnlstAllsDr}vi.vtxtS = ""dRequfor (i of0 ; i < yCoForm.lstAllsDr}vi..r}gub ;i++)dRequ{dRequ/yCoForm.hdnlstAllsDr}vi.vtxtS = yCoForm.hdnlstAllsDr}vi.vtxtS + fyCoForm.lstAllsDr}vi.o--tgrs[i].vtxtS + "|" ;dRequ}t.r4/t.r4udRequreturndtrue ;dReq} 4nceqfllocapoi.n terVesidatePP- (Dofq4{TimpdyCoForm.hdnlstInclude.vtxtS = ""dRequfor (i of0 ; i < yCoForm.lstInclude..r}gub ;i++)dRequ{dRequ/yCoForm.hdnlstInclude.vtxtS = yCoForm.hdnlstInclude.vtxtS + fyCoForm.lstInclude.o--tgrs[i].vtxtS + "|" ;dRequ}t.r4/t.r4t.r4 yCoForm.hdnlstExclude.vtxtS = ""dRequfor (i of0 ; i < yCoForm.lstExclude..r}gub ;i++)dRequ{dRequ/yCoForm.hdnlstExclude.vtxtS = yCoForm.hdnlstExclude.vtxtS + fyCoForm.lstExclude.o--tgrs[i].vtxtS + "|" ;dRequ}t.r4/t.r4uyCoForm.hdnlstInclude.vtxtS = escape(yCoForm.hdnlstInclude.vtxtS);dRequyCoForm.hdnlstExclude.vtxtS = escape(yCoForm.hdnlstExclude.vtxtS);t. r4dReqdRequreturndtrue ;dReq} 4ncdRolt.r 4q4fllocapoi Sport4.n Ms()ofq4{Timpdvar i,j, {Format ;/4me( {Format = "" ;dRTimpdvar Sport4ed =ddocum(4c.frmTask.lstAllsDr}vi.sport4edIndex ;dRequif (Sport4ed <f0 )dRequ{dRequ/yCoForm.lstUnAuthorized..r}gub = 0;dRequ/yCoForm.lstAuthorized..r}gub = 0;dRequ/dRequ}t.r4/dateTime({dRequ/var Sport4edGroupName =ddocum(4c.frmTask.lstAllsDr}vi.o--tgrs[docum(4c.frmTask.lstAllsDr}vi.sport4edIndex].text ;dRequ/for (j of0 ;j < hdn..r}gub ;j++)dRequ({t.r4//tif (Sport4edGroupName == hdn[j])/4me(//{/4me(//uSport4ed =dj ;dRequ///break;dR equq}dR equ}t.dR equ//Populate UnAuthorized Listboxvi //yCoForm.lstUnAuthorized..r}gub = 0;dReqixi4/for (i of0 ; i < hdnUnAuth[Sport4ed]..r}gub ;i++)dRequ({t.r4//tif (hdnUnAuth[Sport4ed].sub {(i,1) != '|')/4me(/// {Format = {Format + hdnUnAuth[Sport4ed].sub {(i,1) ;/4me(//dateTime(/({Time(/(/yCoForm.lstUnAuthorized.o--tgrs[yCoForm.lstUnAuthorized..r}gub] = new O--tgr(strFormat,strFormat,faate,faate) ;/4me(/// {Format = "" ;dRequ//}dR equ}t.r4/udReq/e {Format = "" ;dRequ/yCoForm.lstAuthorized..r}gub = 0;dReqixi4/for (i of0 ; i < hdnAuth[Sport4ed]..r}gub ;i++)dRequ({t.r4//tif (hdnAuth[Sport4ed].sub {(i,1) != '|')/4me(/// {Format = {Format + hdnAuth[Sport4ed].sub {(i,1) ;/4me(//dateTime(/({Time(/(/yCoForm.lstAuthorized.o--tgrs[yCoForm.lstAuthorized..r}gub] = new O--tgr(strFormat,strFormat,faate,faate) ;/4me(/// {Format = "" ;dRequ//}dR equ}t.r4/}r4udRequreturndtrue ;dReq} equ/dRt.r4///iAddNewsDr}vi "cilCCV> 4q4//i--------------------- 4q4//Adds new sDr}vies to list boxvi fllocapoiAddNewsDr}vi(Dofq4{Timpdvar yColstsDr}vi=docum(4c.frmTask.lstsDr}vi;Timpdvar yColstAll=docum(4c.frmTask.lstAllsDr}vi;dRequif ( yColstAll..r}gub.vtxtS !=f0 )dRequ{dRequ/var Sport4ed =dyColstAll.sport4edIndex ;dRequuif ( Sport4ed <f0 )dRequ(/yColstAll.o--tgrs[0].sport4ed=true;dRdRequ/yColstsDr}vi.o--tgrs[yColstsDr}vi..r}gub] = new O--tgr(yColstAll.o--tgrs[yColstAll.sport4edIndex].text,yColstAll.o--tgrs[yColstAll.sport4edIndex].vtxtS,faate,faate);dRequ/yColstAll.o--tgrs[yColstAll.sport4edIndex] = null ;dRequ/dRequuif ( yColstAll..r}gub =of0 )dRequ({Time(/(docum(4c.frmTask.btnADD.disabled=dtrue ;dRequu/dRequu}dRequuif ( Sport4ed >of0 )dRequ({Time(/(if ( Sport4ed =of0 ) {t.r4//ttif (yColstAll..r}gub !=f0)/4me(/// yColstAll.o--tgrs[0].sport4ed=true;dRr4/ qudateTime(/(/ixidocum(4c.frmTask.btnADD.disabled=dtrue ;dRequuu}dRequuixi4dateTime(/(/yColstAll.o--tgrs[Sport4ed - 1].sport4ed=true;dRr4/ }dRequuif ( yColstsDr}vi..r}gub >de)/4me(/{Time(/(docum(4c.frmTask.btnREMOVE.disabled=dfaate ;t.r4/ qyColstsDr}vi.o--tgrs[yColstsDr}vi..r}gub-1].sport4ed=true;dRr4/ } t.r4/}r4u t.r4/dateTime({dRequ/dRexixiu/docum(4c.frmTask.onmousedownn= ClearEk=dRexixiu/dRequ}t.r4/makeDisable(docum(4c.frmTask.lstsDr}vi) ;dRequSport4.n Ms();dReq} 4nceq//iRemovesDr}vi "cilCCV> 4q4//i--------------------- 4q4//Removes sDr}vies from list box (On REMOVE buttpoipress)vi fllocapoiRemovesDr}vi(Dofq4{TimpdyptPageChanged(true);dRequdRequvar yColstsDr}vi=docum(4c.frmTask.lstsDr}vi; Timpdvar yColstAll=docum(4c.frmTask.lstAllsDr}vi;dRequif ( yColstsDr}vi.sport4edIndex <de)/4me(/yColstsDr}vi.sport4edIndex = 0;dRdRequyColstAll.o--tgrs[yColstAll..r}gub] = new O--tgr(yColstsDr}vi.o--tgrs[yColstsDr}vi.sport4edIndex].text,yColstsDr}vi.o--tgrs[yColstsDr}vi.sport4edIndex].vtxtS,faate,faate);dRTimpdvar Sport4edIndex=yColstsDr}vi.sport4edIndex;dRequyColstsDr}vi.o--tgrs[Sport4edIndex]=null;t. r4dReq/if ( yColstsDr}vi..r}gub >de )dRequ{dRequ/if ( Sport4edIndex =of0 ) 4/ qudReq/eqyColstsDr}vi.o--tgrs[0].sport4ed=true;dRr4/ dateudReq/eqyColstsDr}vi.o--tgrs[Sport4edIndex-1].sport4ed=true;dRr4/}u t.r4/dateTime({ dRequ/docum(4c.frmTask.btnREMOVE.disabled=true; t.r4/}r /4 eqdRequif ( yColstAll..r}gub >de)/4me({dRequ/docum(4c.frmTask.btnADD.disabled=dfaate ;dRequ/yColstAll.o--tgrs[yColstAll..r}gub-1].sport4ed=true;dRr4/}ut.r4/makeDisable(docum(4c.frmTask.lstsDr}vi) ;dRequSport4.n Ms();dReq}// dt.rof fllocapoiRemovesDr}vi(D 4ncdRoldReq</ P---->t.v <t< P---- languP- ="JavaSP----">t.<t// Init "cilCCV> 4q4//i----------- 4q4//iThis fllocapoiis called by que Property PP- web framework to allow que pP- 4q4//ito performnfirst te k initiesizacapo. dRe // 4q4//iThis fllocapoimust be included is a java P---- runte k ck=is will occur. 4q4//dRt.<%uIf g_itemType =dent.v '''Screening O(t.r} %>r 4q4fllocapoiInit(Dofq4{Timpd switch(i)vc lTab)/4me(/{Time(/cequd'0': //for Groups Sport4CV> 4q4444GroupInit(Dq 4//t ofq4q 4break;dRTime(/cequd'1': //for .n ter Sport4CV> 4q4444.n terInit(Dq 4//t ofq4q 4break;dR//t ofq4q cequd'2': //for Aocapoiyport4CV> 4q4444AocapoInit(D 4//t ofq4q 4break;dR//t } ofq4}dRt.<%uEve:Dt AdjncdRuIf g_itemType =d1 nt.v /t ''Dir/Use q ColsD%>qu AdjfllocapoiInit(Dofq{Timeswitch(i)vc lTab)/4me({Time(/cequd'0': //for Limit dRequ/tif (docum(4c.frmTask.cmbUnits){dRol< 4//tvar nypo = new Numbe (docum(4c.frmTask.hdncmbUnits.vtxtS);/4qu/ docum(4c.frmTask.cmbUnits.sport4edIndex = nypo.vtxtSOf() ;dRequuuunypo = Numbe (docum(4c.frmTask.hdncmbUnits1.vtxtS);/4qu/ docum(4c.frmTask.cmbUnits1.sport4edIndex = nypo.vtxtSOf() ;dRdRol< 4//tCheckText();/4qu/ if (docum(4c.frmTask.txtSpaceLimit.vtxtS <of0 && docum(4c.frmTask.cmbUnits.sport4edIndex != 5) t.r4//tt DisableOK();/4qu/ date sDq / q EvableOK();/4Time(/(/ypfPassiveO--tgrs(D;equ/qu/ /4qu/ docum(4c.frmTask.txtSpaceLimit.focus(D;dRequ///docum(4c.frmTask.txtSpaceLimit.sport4(D;dRequ///break;dR equq}dR equcequd'1': //for At5avd1vi g if (docum(4c.frmTask.cmbMacro1)/4me(//{/4me(//uif (docum(4c.frmTask.chkRunques4.1.vtxtS =of'<%=L_CHECKED%>')dRequ qu docum(4c.frmTask.cmbRunques4.1.sport4edIndex ofNumbe (docum(4c.frmTask.cmbRunques4.Index1.vtxtS) ;dRequ// dRequ//tvar nypo = new Numbe (docum(4c.frmTask.hdnfg_Sa:Unit1.vtxtS);/4qu/ docum(4c.frmTask.cmbfg_Sa:Unit1.sport4edIndex = nypo.vtxtSOf() ;dRequuuudocum(4c.frmTask.cmbMsgLvs1.sport4edIndex = docum(4c.frmTask.hdncmbMsgLvs1.vtxtS ;dRdReq/uuunypo = new Numbe (docum(4c.frmTask.hdnIn, 4fes1.vtxtS);/4qu/ docum(4c.frmTask.cmbIn, 4fes1.sport4edIndex = nypo.vtxtSOf() ;dRequuuuChangeDe kFormat('1');/4Time(/(/if (docum(4c.frmTask.hdnqu3 i of4i1.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i of4i1.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i of4i1.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i of4i1.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i of4i1.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRt.r4//ttif (docum(4c.frmTask.hdnqu3 i oASub1.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i oASub1.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i oASub1.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i oASub1.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i oASub1.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRqu// dRequ//tCheckCASurols('1');/4TidR equq} ofq4q 4break;dRTime(/cequd'2': //for At5avd2vi g if (docum(4c.frmTask.cmbMacro2)/4me(//{/4me(//uif (docum(4c.frmTask.chkRunques4.2.vtxtS =of'<%=L_CHECKED%>')dRequ qu docum(4c.frmTask.cmbRunques4.2.sport4edIndex ofNumbe (docum(4c.frmTask.cmbRunques4.Index2.vtxtS) ;dRequ// dRequ//tvar nypo = new Numbe (docum(4c.frmTask.hdnfg_Sa:Unit2.vtxtS);/4qu/ docum(4c.frmTask.cmbfg_Sa:Unit2.sport4edIndex = nypo.vtxtSOf() ;dRequuuudocum(4c.frmTask.cmbMsgLvs2.sport4edIndex = docum(4c.frmTask.hdncmbMsgLvs2.vtxtS ;dRdReq/uuunypo = new Numbe (docum(4c.frmTask.hdnIn, 4fes2.vtxtS);/4qu/ docum(4c.frmTask.cmbIn, 4fes2.sport4edIndex = nypo.vtxtSOf() ;dRequuuuChangeDe kFormat('2');t.r4/ qudReq/equif (docum(4c.frmTask.hdnqu3 i of4i2.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i of4i2.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i of4i2.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i of4i2.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i of4i2.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRt.r4//ttif (docum(4c.frmTask.hdnqu3 i oASub2.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i oASub2.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i oASub2.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i oASub2.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i oASub2.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRequ//tCheckCASurols('2');t.r4/dR equq} ofq4q 4break;dR//t ofq4q cequd'3': //for At5avd3vi g if (docum(4c.frmTask.cmbMacro3)/4me(//{/4me(//uif (docum(4c.frmTask.chkRunques4.3.vtxtS =of'<%=L_CHECKED%>')dRequ qu docum(4c.frmTask.cmbRunques4.3.sport4edIndex ofNumbe (docum(4c.frmTask.cmbRunques4.Index3.vtxtS) ;dRequ// dRequ//tvar nypo = new Numbe (docum(4c.frmTask.hdnfg_Sa:Unit3.vtxtS);/4qu/ docum(4c.frmTask.cmbfg_Sa:Unit3.sport4edIndex = nypo.vtxtSOf() ;dRequuuudocum(4c.frmTask.cmbMsgLvs3.sport4edIndex = docum(4c.frmTask.hdncmbMsgLvs3.vtxtS ;dRdReq/uuunypo = new Numbe (docum(4c.frmTask.hdnIn, 4fes3.vtxtS);/4qu/ docum(4c.frmTask.cmbIn, 4fes3.sport4edIndex = nypo.vtxtSOf() ;dRdRequuuuChangeDe kFormat('3');/4qu/ if (docum(4c.frmTask.hdnqu3 i of4i3.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i of4i3.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i of4i3.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i of4i3.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i of4i3.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRt.r4//ttif (docum(4c.frmTask.hdnqu3 i oASub3.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i oASub3.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i oASub3.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i oASub3.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i oASub3.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRequ//tCheckCASurols('3');/4qdR equq} ofq4q 4break;dR//t cequd'4': //for At5avd4vi g if (docum(4c.frmTask.cmbMacro4)/4me(//{/4me(//uif (docum(4c.frmTask.chkRunques4.4.vtxtS =of'<%=L_CHECKED%>')dRequ qu docum(4c.frmTask.cmbRunques4.4.sport4edIndex ofNumbe (docum(4c.frmTask.cmbRunques4.Index4.vtxtS) ;dRequ// dRequ//tvar nypo = new Numbe (docum(4c.frmTask.hdnfg_Sa:Unit4.vtxtS);/4qu/ docum(4c.frmTask.cmbfg_Sa:Unit4.sport4edIndex = nypo.vtxtSOf() ;dRequuuudocum(4c.frmTask.cmbMsgLvs4.sport4edIndex = docum(4c.frmTask.hdncmbMsgLvs4.vtxtS ;dRdReq/uuunypo = new Numbe (docum(4c.frmTask.hdnIn, 4fes4.vtxtS);/4qu/ docum(4c.frmTask.cmbIn, 4fes4.sport4edIndex = nypo.vtxtSOf() ;dRdRequuuuChangeDe kFormat('4');/4qu/ if (docum(4c.frmTask.hdnqu3 i of4i4.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i of4i4.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i of4i4.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i of4i4.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i of4i4.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRt.r4//ttif (docum(4c.frmTask.hdnqu3 i oASub4.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i oASub4.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i oASub4.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i oASub4.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i oASub4.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRequ//tCheckCASurols('4');/4qudR equq} ofq4q 4break;dR//t cequd'5': //for At5avd5vi g if (docum(4c.frmTask.cmbMacro5)/4me(//{/4me(//uif (docum(4c.frmTask.chkRunques4.5.vtxtS =of'<%=L_CHECKED%>')dRequ qu docum(4c.frmTask.cmbRunques4.5.sport4edIndex ofNumbe (docum(4c.frmTask.cmbRunques4.Index5.vtxtS) ;dRequ// dRequ//tvar nypo = new Numbe (docum(4c.frmTask.hdnfg_Sa:Unit5.vtxtS);/4qu/ docum(4c.frmTask.cmbfg_Sa:Unit5.sport4edIndex = nypo.vtxtSOf() ;dRequuuunypo = new Numbe (docum(4c.frmTask.hdnIn, 4fes5.vtxtS);/4qu/ docum(4c.frmTask.cmbIn, 4fes5.sport4edIndex = nypo.vtxtSOf() ;dRequuuudocum(4c.frmTask.cmbMsgLvs5.sport4edIndex = docum(4c.frmTask.hdncmbMsgLvs5.vtxtS ;dRdReq/uuuChangeDe kFormat('5');/4qu/ if (docum(4c.frmTask.hdnqu3 i of4i5.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i of4i5.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i of4i5.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i of4i5.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i of4i5.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRt.r4//ttif (docum(4c.frmTask.hdnqu3 i oASub5.vtxtS..r}gub >f0 )dRequ/(/{/4me(////var {Format = '';dRequ/qu/for (var z=0 ; z < docum(4c.frmTask.hdnqu3 i oASub5.vtxtS..r}gub ; z++)dRequ(/(/{/4me(////(/if (docum(4c.frmTask.hdnqu3 i oASub5.vtxtS.sub {(z,1) != ',')/4me(/////// {Format = {Format + docum(4c.frmTask.hdnqu3 i oASub5.vtxtS.sub {(z,1) ;t.r4/ qu/e(dateTime(/(/D(/{/4me(////(//yCoForm.lstqu3 i oASub5.o--tgrs[Numbe ( {Format)].sport4ed =dtrue ;dRequ/qu//// {Format = "" ;dRequ////4/}dRequ/qu/}dRequ///}dRequ//tCheckCASurols('5'); r4/ dRequdRequuq} ofq4q 4break;dR//t ofq4q}u t.r}t.<%ol<}//(Dt sD%>qdRt.rxixi// VesidatePP- "cilCCV> 4qxixi// ------------------------- 4q4//iThis fllocapoiis called by que Property PP- framework cs partrof que 4qxixi// submit processing. Ute quis fllocapoitoifesidate use i caa. ReturningdR<xixi// faate will caute que submit to abs4.. dRexixi// 4q4//iThis fllocapoimust be included is a java P---- runte k ck=is will occur. 4qxixi// 4qxixi// Returns: True if que pP- iis OK, faate if erro ( ) exist. dRedRt.<%uIf g_itemType =dent.v '''Screening O(t.r} %>AdjfllocapoiVesidatePP- (Dofq{dReqixi4/switch(i)vc lTab)/4me(/{Time(/ //for general prophdeqq=dcequd'0': dRequ//treturndGroupVesidatePP- (Dofq4u///break;dR equq//for Compressnprop dRequ// cequd'1': dRequ//treturnd.n terVesidatePP- (Dofq4u///break;dR equq//for Compressnprop dRequ// cequd'2': dRequ//treturndAocapoVesidatePP- (Dofq4u///break;dR equq cequd'3':dRequ//treturndsDr}viVesidatePP- (Dofq44q 4break;dR//t }dRt.r}t.<%uEve:Dt AddRuIf g_itemType =d1 t.v /t ''Dir/Use q ColsD%>quAdjfllocapoiVesidatePP- (Dofq{dReqswitch(i)vc lTab)/4me({Time(/cequd'0': //for Limit dRequ/ttreturndLimitVesidatePP- (D;dRequ///break;dR equcequd'1': //for At5avd1vi g returndAt5av1VesidatePP- (D ;ofq4q 4break;dR//t cequd'2': //for At5avd2vi g returndAt5av2VesidatePP- (D ;ofq4q 4break;dR//t cequd'3': //for At5avd3vi g returndAt5av3VesidatePP- (D ; 4//t ofq4q 4break;dR//t cequd'4': //for At5avd4vi g returndAt5av4VesidatePP- (D ; 4//t ofq4q 4break;dR//t cequd'5': //for At5avd5vi g returndAt5av5VesidatePP- (D ; 4//t ofq4q 4break;dR//t } dRequdRe}equ/dRt.<%uEve:Dt %>Ad</ P---->t.<%uEve:"cilCCV> %>/4 oft.<%@ LanguP- =VBSP---- %>Ad<%uO--tgr Expr}vit %>Ad<% ''Call SAI_EvablePageCaching(TRUE)/4'////////////////////////////////////////////////////////////////////////////4'// Copyright 1996-2001, W. QuinndAssociates, Inc./4'////////////////////////////////////////////////////////////////////////////4'// MODULE DESCRIPTION:/4'// WQStorageques4._Run.asp: Run a predefined Storageques4. poio(t.r}( ) - Area PP- /4'////////////////////////////////////////////////////////////////////////////4'// AUTHOR(S): dR'// S---riya Narayanan/4'////////////////////////////////////////////////////////////////////////////4'// CREATION DATE: dR'// 27 June 2001 /4'////////////////////////////////////////////////////////////////////////////4%>/4 <!-- #include file="../inc_framework.asp" -->/4 <!-- #include file="../WQ:Dcn/WQUtilities.asp" -->/4<%ol<'-------------------------------------------------------------------------ol<' GlobesiVeriablesol<'-------------------------------------------------------------------------ol /Dim pP- 4dReDim L_NOREPORT_TEXTAdjDim L_FILESYSYTEMOBJECT_NOT_CREATED_ERRORMESSAGEAdjDim L_FOLDER_DOES_NOT_EXIST_ERRORMESSAGEAdAdjL_FILESYSYTEMOBJECT_NOT_CREATED_ERRORMESSAGE = GetLocStv P-("WQ:Dcn.dll","4020232F", "")/4 L_FOLDER_DOES_NOT_EXIST_ERRORMESSAGE/t = GetLocStv P-("WQ:Dcn.dll","4020232e", "")/4 L_NOREPORT_TEXTequ/qu/ t = GetLocStv P-("WQ:Dcn.dll","40202348", "")/4 /4TidR '-------------------------------------------------------------------------ol<' GlobesiFormnVeriablesol<'-------------------------------------------------------------------------ol/Dim yCoRegistry,strServe=dReSet yCoRegistry = RegCASnrt4CV>(DofqstrServe= = GetRegkeyVtxtS( yCoRegistry, _dRequ////4"SOFTWARE\WQuinn\StorageC(4cral SRM\5.0",_dRequ////4"Serve=Name", CONST_STRING)TidR 'Getting Compute=NamedRuIf .r}4strServe=) =dent.v dReqstrServe= = GetCompute=Name(DofqEve:Dt/4dReDim yCoRptSvr/4dReDim F_O(t.r}qudReDim F_ques4.qudR /4xix/4xixiF_ques4.qu= Request.QueryStv P-("Title")/4 F_O(t.r}qu= Request.Form("hdntxtO(t.r}") ncdRoldReDim strCompName(1DofqstrCompName(0) = {Serve=dRdR '======================================================ol<' Entry poi4cdR '======================================================ol<Dim L_PAGETITLEAdjDim rcdR 'ol<' Get locesized pP- ititle/4 L_PAGETITLE = GetLocStv P-("WQ:Dcn.dll","40200FAB",strCompName) t.r'ol<' Create a Property PP- ol<rc = SA_CreatePP- ( L_PAGETITLE, "", PT_AREA, pP- i)/4 /4<' Serve que pP- 4qif (rc = 0 ) quest.r4Call SA_ShowPP- ( pP- i)/4 dt.r}//4dRdR '======================================================ol<' Web Framework Ev(4c HandlersdR '======================================================ol<ol<'---------------------------------------------------------------------ol<' "cilCCV>: OoInitPP- ol<'ol<' Synopsis:4Called to signal first te k processingdfor quis pP- . Ute quis method 4q'//4to donfirst te k initiesizacapo tasks. t.r'ol<' Returns: TRUE to indicate initiesizacapo was successful. FALSE to indicate 4q'//4erro s. Returning FALSE will caute que pP- ito be abandoned.t.r'ol<'---------------------------------------------------------------------ol<Pubr}v:"cilCCV> OoInitPP- (ByRef PP- In, ByRef Ev(4cArg)/4qudR eOoInitPP- = TRUEt.r4Call OTS_GetTableyport4CV>("", 1, F_ques4.)dRt.r4dReEve:"cilCCV>TidR '-------------------------------------------------------------------------ol<'"cilCCV>: equOnServeAreaPP- (Dofq'De P----CV>: eqCalled w.v que pP- ineedsito be served.Ute quis 4q'//4r4/method to serve cASu(4c 4q'I caanVeriables: ePP- In,Ev(4cArg 4q'OutcaanVeriables: eNone 4q'Returns: True/FaateTim'GlobesiVeriables: eNone 4q'-------------------------------------------------------------------------ol<Pubr}v:"cilCCV> OoServeAreaPP- (ByRef PP- In, Byref Ev(4cArg)/4ol<V> ck=is resum inextdRt.r4dReDim L_OBJNAME_TEXTdReDim L_ADD_TEXTdReDim L_REMOVE_TEXTdReDim L_BROWSEdReDim L_BROWSE_TITLEAdjDim L_BROWSE_STATUSdReDim L_RUNREP_STATUS4dReDim L_CLEAR_STATUS4dReDim L_CANCEL_STATUS4dReDim L_RUNREP 4dReDim L_CLEAR 4dReDim L_CANCEL dReDim L_ADD_STATUS4 4dReDim L_REMOVE_STATUS4dReDim L_PATHALREADYSELECTED_TEXTdRe/4 L_BROWSE4 4= GetLocStv P-("WQ:Dcn.dll","40200FB2", "")/4 L_BROWSE_TITLE 4= GetLocStv P-("WQ:Dcn.dll","40200FB3", "")/4 L_BROWSE_STATUS4 = GetLocStv P-("WQ:Dcn.dll","40200FB4", "")/4 L_RUNREP_STATUS4 = GetLocStv P-("WQ:Dcn.dll","40200FB5", "")/4 L_CLEAR_STATUS4 = GetLocStv P-("WQ:Dcn.dll","40200FB6", "")/4 L_CANCEL_STATUS4 = GetLocStv P-("WQ:Dcn.dll","40200FB7", "")/4 L_RUNREP4 4= GetLocStv P-("WQ:Dcn.dll","40200FAF", "")/4 L_CLEAR 4 4= GetLocStv P-("WQ:Dcn.dll","40200FB1", "")/4 L_CANCEL4 4= GetLocStv P-("WQ:Dcn.dll","40200FB0", "")/4 L_ADD_STATUS4 = GetLocStv P-("WQ:Dcn.dll","40200FB8", "")/4 L_REMOVE_STATUS4 = GetLocStv P-("WQ:Dcn.dll","40200FB9", "")/4/4 L_OBJNAME_TEXT 4= GetLocStv P-("WQ:Dcn.dll","40200FAC", "")/4 L_ADD_TEXTequ/= "<" & GetLocStv P-("WQ:Dcn.dll","40200FAD", "")/4 L_REMOVE_TEXT 4= GetLocStv P-("WQ:Dcn.dll","40200FAE", "") & ">"/4/4 L_PATHALREADYSELECTED_TEXT 4= GetLocStv P-("WQ:Dcn.dll","4020234A", "")/4/4 if ( bVisible ) quest.r4Call ServeCommonJavaSP----(Dof%>/4 udR e<TABLE CELLSPACING=0 CELLPADDING=2 class="TasksBody">t.<t<tr><td>t.r4dR 4q4<p esign=cen, 4>dR e<TABLE ALIGN=left BORDER=0 CELLSPACING=0 CELLPADDING=2 class="TasksBody" >t.<t<tr>dRequ<td cAlspan=4 class="TasksBody"><strong><%=F_ques4.%></td>t.r4</tr>t.<t<tr>dReq<td> </td>t.r4</tr>t.<t<tr>dRequ<td nowrap class="TasksBody"><% =L_OBJNAME_TEXT %> </td>t.r4u<td nowrap class="TasksBody" cAlspan=1></td>t.r4u<td nowrap class="TasksBody">dR//t ofq4q</td>t.r4t.<t<tr> t.r4u<td NOWRAPifesign=top class="TasksBody">dR//t<SELECT NAME =lstO(t.r} class ="FormField" yle="WIDTH=216px" SIZE="8" >t.<tq</ port4>dRequdRofq4q</td>t.r4u<td NOWRAPiifesign=top>t.r4u<INPUT type=buttpoiclass='TaskButtpos' vtxtS='<% =L_ADD_TEXT%>' name=btnADDititle='<%=L_ADD_STATUS%>' onmouseove=="window.status='<%=L_ADD_STATUS%>';" onmouseout="window.status='';"Time(/(/ynCr}vk="javaSP----:AddNewO(t.r}()">dR//t<p>t.r4u<INPUT type=buttpoiclass='TaskButtpos' vtxtS='<% =L_REMOVE_TEXT%>' name=btnREMOVE title='<%=L_REMOVE_STATUS%>' onmouseove=="window.status='<%=L_REMOVE_STATUS%>';" onmouseout="window.status='';"Time(/(/ynCr}vk="javaSP----:RemoveO(t.r}()">dR//t</p>dR//t<p> </p>dR//t</td>t.r4u<td NOWRAPifesign=top>t.r4u <i caa TYPE="text" name=txtO(t.r} SIZE="30" MAXLENGTH="242" /4 equonmouseove=="OnDown(quis,btnADD)"/4 equonkeydown="OnDown(quis,btnADD)"x/4xixiiiiiiiiiiiiionpaste="PasteText(quis,btnADD)"x/4 equonchange="OnDown(quis,btnADD)"x/4 equonkeyup="OnDown(quis,btnADD)"x /4 equOnKeyPress="AddTextOnCr}vk(quis,btnADD)" >dRt.<%u uIf Not IsADSe}() quest.r4(/if strcomp(URequ(strServe=),URequ(GetCompute=Name(D)) =dent.v of%>/4 u4u<INPUT type=buttpoiclass='TaskButtpos' vtxtS='<% =L_BROWSE%>' name=btnBrowte title='<% =L_BROWSE_TITLE%>' onmouseove=="window.status='<% =L_BROWSE_STATUS%>';" onmouseout="window.status='';"Time(/(/ynCr}vk="javaSP----:Cr}vkToBrowte()">dR<%u udRr4/ dt.r}/ t.r4/dateTi%>qu u<INPUT type=buttpoiclass='TaskButtpos' vtxtS='<% =L_BROWSE%>' name=btnBrowte title='<% =L_BROWSE_TITLE%>' onmouseove=="window.status='<% =L_BROWSE_STATUS%>';" onmouseout="window.status='';"Time(/(/ynCr}vk="javaSP----:Cr}vkToBrowte()">dRdR<%u udt.r}/ %>t.r4</td>t.r4</tr>t.t.<t<tr>dRequ<td NOWRAPicAlspan=5ifesign=top esign=cen, 4 >/4 u4u<INPUT type=submit class='TaskButtpos' vtxtS='<% =L_RUNREP%>' name=btnRun title='<% =L_RUNREP_STATUS%>' onmouseove=="window.status='<% =L_RUNREP_STATUS%>';" onmouseout="window.status='';"Time(/(oncr}vk="javaSP----:UpdateO(t.r}()">dR//4qdR equ<INPUT type=buttpoiclass='TaskButtpos' vtxtS='<% =L_CLEAR%>' name=btnClear title='<% =L_CLEAR_STATUS%>' onmouseove=="window.status='<% =L_CLEAR_STATUS%>';" onmouseout="window.status='';"Time(/(oncr}vk="javaSP----:ClearAll()">dR//t</td></tr></TABLE>t.r4<I caanname=hdntxtO(t.r} type=hiddendvtxtS ='<% =F_O(t.r}%>'>dRt.r4dRet</td></tr></TABLE>t.dRdR<%u dt.r}//4dRquOnServeAreaPP- =True/4dRquyport4 Requ Len(Trim(F_O(t.r}))/4me(Requ 0dR//t ofq4qRequ EateTime(/Dim varReturndRequ/varReturn = Runques4.(Dofq44qSet yCoRptSvr ofNothingdR<eEve:yport4/4dRqEve:"cilCCV>TidR '-------------------------------------------------------------------------ol<':"cilCCV> name: IsFolderExistingdR<' De P----CV>: eTo check if que i caa fileiis existingdR<' I caanVeriables: in.n M - fileiname(along with path)ito be ve=ified 4q' OutcaanVeriables: None 4q' Returns: True if fileiexits, date FaateTim' GlobesiVeriables: None 4q' Uses the file systemio(t.r}itoife=ify que existencerof que filedR '-------------------------------------------------------------------------ol<"cilCCV> IsFolderExisting(in.n MDofq4Err.CleardRquOn Ek=is Resum iNextdRt ofq4Dim yCoFSO ' the file systemio(t.r}dRt ofq4' create the file systemio(t.r}dRt Set yCoFSO = CreateO(t.r}("SP----ing..n MSystemO(t.r}")/4dRquIf Err.numbe <>f0 Tuest.r4(ServePP- (Dofq44ServeErrMsg L_FILESYSYTEMOBJECT_NOT_CREATED_ERRORMESSAGE & " (" & Hex(Err.Numbe ) & ")"x/4 eqIsFolderExisting = FaateTimq4Exit "cilCCV> 4q4Eve:Dt/4 dRt of /' check if fileiexistsdRquIf yCoFSO.FolderExists(in.n MD Tuesx/4 eqIsFolderExisting= True/4q4EateTimq4ServePP- (Dofq44ServeErrMsg L_FOLDER_DOES_NOT_EXIST_ERRORMESSAGE & " " & in.n M & " (" & Hex(Err.Numbe )&")"/4 eqIsFolderExisting= FaateTimq4Set yCoFSO = NothingdR<e4Exit "cilCCV> 4q4Eve:Dt/4t ofq4' clean updRt Set yCoFSO = NothingdRdRqEve:"cilCCV>Ti Adjnc '-------------------------------------------------------------------------ol<'"cilCCV>: equServeCommonJavaSP----ofq'De P----CV>: eqServes in initiesiging the vtxtSs,setting the form 4q'//4r4/data(chk fesidating the form vtxtSs 4q'I caanVeriables: eNone 4q'OutcaanVeriables: eNone 4q'Returns: True/FaateTim'GlobesiVeriables: eNone 4q'-------------------------------------------------------------------------ol<FllocapoiyprveCommonJavaSP----(DofeDim L_PATHALREADYSELECTED_TEXTdReL_PATHALREADYSELECTED_TEXT 4= GetLocStv P-("WQ:Dcn.dll","4020234A", "")/4/4 %>/4 u4< P---- languP- ="JavaSP----">t.<tq4fllocapoiClearAll()/4me(/{Tivi g if (docum(4c.all('hdntxtO(t.r}'))dRequuuudocum(4c.all('hdntxtO(t.r}').vtxtS = "" ;dRequ//if (docum(4c.all('txtO(t.r}'))dRequuuudocum(4c.all('txtO(t.r}').vtxtS = "" ;;/4qu/ dRequ/tif (docum(4c.all('lstO(t.r}'))dRequuuuif (docum(4c.all('lstO(t.r}')..r}gub >f0 )dRequ/(//for (var i=docum(4c.all('lstO(t.r}')..r}gub ; i >of0 ; i--)/4me(/////docum(4c.all('lstO(t.r}').o--tgrs[i]=null;t. r4 dRequ/tdocum(4c.all('btnREMOVE').disabled=true;dRequ/tdocum(4c.all('btnRun').disabled=true;dRequ/tdR//t }dRt.t.<tq4fllocapoiInit(Dofq4(/{/4me(///var {Name =ddocum(4c.all('hdntxtO(t.r}').vtxtS;dRequ// dRequ//tvar {Format = '';dRequ/qufor (i of0 ; i < {Name..r}gub ;i++)dRequ(//{/4me(//utif ( {Name.sub {(i,1) != '|')/4me(///// {Format = {Format + {Name.sub {(i,1) ;dRequ////dateTime(/(/D{/4me(////(if ( {Format..r}gub !=f0 )/4me(//////docum(4c.all('lstO(t.r}').o--tgrs[docum(4c.all('lstO(t.r}')..r}gub] = new O--tgr(strFormat,strFormat,faate,faate) ;/4me(///// {Format = "" ;dRequ////}dRequ///}dRt.r4//ttif ( {Format..r}gub !=f0 )/4me(////docum(4c.all('lstO(t.r}').o--tgrs[docum(4c.all('lstO(t.r}')..r}gub] = new O--tgr(strFormat,strFormat,faate,faate) ;/4medRequuuuif (docum(4c.all('txtO(t.r}').vtxtS..r}gub <o0 )/4me(////docum(4c.all('btnADD').disabled =dtrue;dRr4/ qudateTime(/(//docum(4c.all('btnADD').disabled =dfaate;dRt.r4//ttif ( docum(4c.all('lstO(t.r}')..r}gub <=f0 )/4me(////docum(4c.all('btnREMOVE').disabled=true;dRequ/tedRequuuu//Disable is EnableiOK buttpoidepending poinumbe of O(t.r}s chosest.r4(/4/makeItDisable(docum(4c.all('lstO(t.r}')) ; equ/dRt.r4/uuudocum(4c.all('txtO(t.r}').focus(D;dRequ///docum(4c.all('txtO(t.r}').sport4(D;dRequ///docum(4c.frmTask.onkeypressn= ClearEk= dRdRequ/ttreturndtrue;dRr4/ }dRt.t.<tq4fllocapoiUpdateO(t.r}()/4me(/{Tivi g docum(4c.all('hdntxtO(t.r}').vtxtS ='' ;dRequ//for (i of0 ; i < docum(4c.all('lstO(t.r}')..r}gub ;i++)dRequ(/{dRequuuudocum(4c.all('hdntxtO(t.r}').vtxtS = docum(4c.all('hdntxtO(t.r}').vtxtS + docum(4c.all('lstO(t.r}').o--tgrs[i].vtxtS + "|" ;dReququ}t.r4/t.r4uuu//Update vtxtSsitoihiddendvtriablesol<4uuu//docum(4c.all('hdntxtO(t.r}').vtxtS = escape(docum(4c.all('hdntxtO(t.r}').vtxtS) ;dRequ/ dRequuuif (docum(4c.all('txtO(t.r}').vtxtS..r}gub <o0 )/4me(///docum(4c.all('btnADD').disabled =dtrue;dRr4/ qdateTime(/(/docum(4c.all('btnADD').disabled =dfaate;dRt.r4//tif ( docum(4c.all('lstO(t.r}')..r}gub <=f0 )/4me(///docum(4c.all('btnREMOVE').disabled=true;dRequ/tol<4uuu//Disable is EnableiOK buttpoidepending poinumbe of O(t.r}s chosest.r4(/4makeItDisable(docum(4c.all('lstO(t.r}')) ;dRr4/ }dRt.t.<tq4//iAddNewO(t.r} "cilCCV>Ti q4//i--------------Ti q4//iThis fllocapoiadds new itemsitoithe o(t.r}ilist boxvi fllocapoiAddNewO(t.r}()/4me(/{Tivi g var yColstO(t.r}=docum(4c.all('lstO(t.r}');vi g var yCotxtO(t.r}=docum(4c.all('txtO(t.r}');dRt.r4//tif ( yCotxtO(t.r}.vtxtS..r}gub !=f0 )/4me(////if ( yCotxtO(t.r}.vtxtS..r}gub !=f0 && !IsAllSpaces(yCotxtO(t.r}.vtxtS) && (isfesidchar("/[\*\?<>\|]/",yCotxtO(t.r}.vtxtS)))dRequ(/{dRequuudRequ/qufor (var j=0; j < yColstO(t.r}..r}gub;j++)dRequ(//{/4me(//utif (yCotxtO(t.r}.vtxtS =ofyColstO(t.r}.o--tgrs[j].vtxtS) Time(/(/D{/4me(////(alert('<% =L_PATHALREADYSELECTED_TEXT%>') ;dRequ/equ/returndfaate;dRequ/equ/dRequ/qu/}dRequ///}dRqu// dRequ//tTime(/(/yColstO(t.r}.o--tgrs[yColstO(t.r}..r}gub] = new O--tgr(yCotxtO(t.r}.vtxtS,yCotxtO(t.r}.vtxtS,faate,faate);dRequ/utif (yCotxtO(t.r}.vtxtS..r}gub =of0)/4me(////docum(4c.all('btnADD').disabled =dtrue ;/4qu/ date sDq / q docum(4c.all('btnADD').disabled =dfaate ;/4qu/ yCotxtO(t.r}.vtxtS = "" ;dRTimpd(/4makeItDisable(docum(4c.all('lstO(t.r}'));t.r4/ qudReq/equif ( yColstO(t.r}..r}gub >de)/4me(//D{/4me(////docum(4c.all('btnREMOVE').disabled=dfaate ;/4qu/ /yColstO(t.r}.o--tgrs[yColstO(t.r}..r}gub-1].sport4ed=true;dRr4/ uq} ofq4q 4}/ qudReq/eqdateTime(/({Time(/(/docum(4c.all('txtO(t.r}').focus(D ;dRequ///docum(4c.all('txtO(t.r}').sport4(D ;dReququ}t.t.r4//tif (yCotxtO(t.r}.vtxtS..r}gub =of0)/4me(///docum(4c.all('btnADD').disabled =dtrue ;/4qu/ date sDq / qdocum(4c.all('btnADD').disabled =dfaate ;/4t.r4(/4makeItDisable(docum(4c.all('lstO(t.r}'));dR equ}t.dR equ// RemoveO(t.r} "cilCCV>Ti q4//i--------------Ti q4//iThis fllocapoiremoves itemsitoithe o(t.r}ilist boxvi fllocapoiRemoveO(t.r}()ofq4(/{/4me(//var yCotxtO(t.r} =d docum(4c.all('txtO(t.r}');dR g var yColstO(t.r}=docum(4c.all('lstO(t.r}'); dR g var Sport4edIndex=yColstO(t.r}.sport4edIndex;dRequ/tif (Sport4edIndex >=f0 )/4me(///yColstO(t.r}.o--tgrs[Sport4edIndex]=null;t. r4equ/ dRequuuif ( yColstO(t.r}..r}gub >de )/4me(//{/4me(//uif ( Sport4edIndex <of0 ) 4/ qudReq/eq//yColstO(t.r}.o--tgrs[0].sport4ed=true;dRr4/ qudateudReq/eq//yColstO(t.r}.o--tgrs[Sport4edIndex-1].sport4ed=true;dRr4/4/}u t.r4/eqdateTime(/({ /4me(///docum(4c.all('btnREMOVE').disabled=true; dR equq}dR equ t.r4//tif (yCotxtO(t.r}.vtxtS..r}gub =of0)/4me(///docum(4c.all('btnADD').disabled =dtrue ;/4qu/ date sDq / qdocum(4c.all('btnADD').disabled =dfaate ;/4 equ t.r4//tmakeItDisable(docum(4c.all('lstO(t.r}'));r /4 eqq}// dt.rof fllocapoiRemoveO(t.r}()ofq4(/4/ dRequdRequu// HandleKey "cilCCV>Ti q4//i----------------------udRequu//To disable Ente chk escape key alCCV>s w.v que focusiis inio(t.r}itextboxvi fllocapoiHandleKey(i caa)/4me(/{Tivi g if(i caa =of"DISABLE")vi g docum(4c.onkeypressn= "";dRr4/ qdateTime(/(docum(4c.onkeypressn= HandleKeyPress;dR equ}t.r4/udReq/e//iAddText "cilCCV>Ti q4//i----------------------dReq/e//iAdds the textbox's cASu(4cs poithe Add buttpoiclickvi fllocapoiAddText(o(tTextBox,yCoButtpo)ofq4(/{/4me(//var nKeyCodeudReq/eqnKeyCoden= window.ev(4c.keyCode; dRequ//tTime(/(if (nKeyCoden== 13)/4me(//{/4me(//uif (yCoButtpo.disabled ==dfaate)dReq/eq//yCoButtpo.click()dRTimpd(/4window.ev(4c.keyCode of0 ; /4me(///docum(4c.all('btnRun').focus(D ;dRdRequ/equ/dRequ/qureturndtruedReququ}t.t.r4//tif (nKeyCoden== 92 && o(tTextBox.vtxtS.charCodeAt(o(tTextBox.vtxtS..r}gub - 1)n== 92)/4me(//{/4me(//u/4me(//uif (yCoTextBox.vtxtS..r}gub !=f1) Time(/(/Dreturndfaate;dRequ/e}t.r4//tif (nKeyCoden== 47 || nKeyCoden== 60 || nKeyCoden== 62 || nKeyCoden== 42 || nKeyCoden== 124 || nKeyCoden== 63)/4me(//{/4me(//u/4me(//ureturndfaate ;dRequuu}dRequu vi g returndtruequu/dRequu}dRequudRequdRequu// OnDown "cilCCV>Ti q4//i----------------------dReq/e//iHandler fllocapoifor KeyDown ev(4cvi fllocapoiOnDown(o(tTextBox,yCoButtpo)me(//u/4me(/{t.t.r4//tif (yCoTextBox.vtxtS..r}gub <=f1)/4me(///yCoButtpo.disabled =dtrue ;/4qu/ date/4me(///yCoButtpo.disabled =dfaate ;/4t.r4(/4dR equ}t.dR equ// PasteText "cilCCV>Ti q4//i------------------equdRequu//To Add Text ioithe TextBox w.v ctrl + V (paste)iis pressedqudRequufllocapoiPasteText(o(tTextBox,yCoButtpo)me(//u/4me(/{t.qu//tvar {Pasted ;/4qu/ {Pasted =iclipboardData.getData('Text');dR g t.t.r4//tif ( {Pasted..r}gub >d1)/4me(///yCoButtpo.disabled =dfaate ;dRequuudate/4me(///yCoButtpo.disabled =dtrue ;dRequu/dRequuureturndtruedRequq}t.t.<tq4//iAddTextOnCr}vk "cilCCV>Ti q4//i----------------------dReq/e//iHandler fllocapoifor KeyPress ev(4cvi fllocapoiAddTextOnCr}vk(o(tTextBox,yCoButtpo)me(//u/4me(/{t.t.r4//tif (yCoTextBox.vtxtS..r}gub >d1)/4me(//{/4me(///yCoButtpo.disabled =dfaate ;dRequuu}/4me(//dateTime(/({Time(/(/yCoButtpo.disabled =dtrue ;dRequu/}vi g returndAddText(o(tTextBox,yCoButtpo);r4(/4dR equ}t.dR equ t.<tq4fllocapoiCl}vkToBrowte()/4me(/{t.qu//tvar vReturnVtxtS ;dRqu//tvar varInitFolder = '';dRequ/qvar {PassItAsParam = docum(4c.all('txtO(t.r}').vtxtS ;dRequ/qu////u/dRequuuvReturnVtxtS = window.showModalDialog("../WQBrowteForFolder.asp?Type=3&InitFolder="+ {PassItAsParam.toUpperRequ(), varInitFolder,'dialogHeight: 410 px;dialogWidth: 350px;, dialogLeft: 30px, dialogTop: 15px, resizable : yes, scroll: no, status: no' )/4me(/vi g docum(4c.all('txtO(t.r}').vtxtS = vReturnVtxtS ;dRqu//tOnDown(docum(4c.all('txtO(t.r}'),docum(4c.all('btnADD')) ;dRr4/ }dRt.<tq4fllocapoimakeItDisable(yCo)ofq4(/{/4me(//var nLr}gub = o(t..r}gub;t.r4//tif (nLr}gub =of0)/4me(////docum(4c.all('btnRun').disabled =dtrue;dRr4/ qdateTime(/(//docum(4c.all('btnRun').disabled =dfaate;dRequ/}dRt.<tq4</ P---->t. <% Eve:"cilCCV> TidR '-------------------------------------------------------------------------ol<'"cilCCV> name: Runques4.ofq'De P----CV>: eRuns the ques4.ofq'I caanVeriables: None 4q'OutcaanVeriables: None 4q'Returns: True/FaateTim' True : If Implem(4ced properly 4q'/ Faate : If Not Implem(4ceddR '--------------------------------------------------------------------------ol<FllocapoiRunques4.ofdRquOn ck=is resum inextdR(/Dim varReplaceStv P-(2)/4meDim varLallohStv P-(1)dRTimpDim L_PROCESSING_TEXTdReeDim L_CANNOTLAUNCH_TEXTdReeDim L_EXCEL_TEXTdReeDim L_REPSUCCESSINFOdReeL_REPSUCCESSINFO = GetLocStv P-("WQ:Dcn.dll","40200FE6","") /4TidR tif .r}4F_O(t.r}) <>f0 t.v dRequ/varReplaceStv P-(0) = F_ques4.dRequ/varReplaceStv P-(1) = unescape(F_O(t.r})dRequ/varReplaceStv P-(1) = replace(varReplaceStv P-(1) ,"|",",")dRequ/varReplaceStv P-(1) = replace(varReplaceStv P-(1) ,"\","\\")dRequ/If right(varReplaceStv P-(1) ,1)n= "," quest.r4(//varReplaceStv P-(1) = left(varReplaceStv P-(1),.r}4varReplaceStv P-(1))-1 )/4me(/Et.r}//4 me(/vi g L_PROCESSING_TEXT = GetLocStv P-("WQ:Dcn.dll","40200FBA", varReplaceStv P-)/4medt.r}//4(/vi L_EXCEL_TEXTr = GetLocStv P-("WQ:Dcn.dll","40200FCB", "")/4 varLallohStv P-(0) = L_EXCEL_TEXTdReeL_CANNOTLAUNCH_TEXT4= GetLocStv P-("WQ:Dcn.dll","40202347", varLallohStv P-)sD%>quAdv <t< P---- languP- =java P---->t.<tq//Set window status bar messP- i/vi gwindow.statusn= "<% =L_PROCESSING_TEXT%>" ;dReq</ P---->t.<%dReeDim L_EMPTY_ERRORMESSAGEAdjeDim L_LOCALHOST_TEXTdReeDim L_VIRDIR_TEXTdReevi L_EMPTY_ERRORMESSAGE4= GetLocStv P-("WQ:Dcn.dll","40202349", "")/4 L_LOCALHOST_TEXTu/= "loceshost"/4 L_VIRDIR_TEXTqu/= "WQques4.s" /4ofq4Err.CleardRquon ck=is resum inextdR(/Dim strServe=Name,str:DclTo,strOutcaadR(/Dim FolderName ,i ,strExtn,process,processiddR(/Dim MyO(t.r} dR(/FolderName = ""dReevi F_O(t.r} = Trim(unescape(F_O(t.r}))TidR tif .r}4CStv(LTrim(F_O(t.r}))) >f0 t.v dRequMyO(t.r} = left( CStv(LTrim(F_O(t.r})),.r}4CStv(LTrim(F_O(t.r})))-1)/4meeateTimq4ServeErrMsg L_FOLDER_DOES_NOT_EXIST_ERRORMESSAGE & " " & F_O(t.r} & " (" & Hex(Err.Numbe )&")"/4 eqRunques4. = FALSEdR<e4Exit "cilCCV>eevi dt.r}//4(/vi Dim yCoFoldervi Dim ctr , refCtrofq4Dim yCoFSO ' the file systemio(t.r}dRt ofq4ctr = 0dR//refCtr = 0dR//ofq4''If not AD chk locesimachine,ifesidate o(t.r}sdRquIf Not IsADSe}() quest.dR<e4if strcomp(URequ(strServe=),URequ(GetCompute=Name(D)) =dent.v of4444.is i =d1 to .r}4MyO(t.r})/4me(//If mid4MyO(t.r},i,1) <>f"|" Tuest.r4(///FolderName = FolderName + mid4MyO(t.r},i,1) t.r4(//EateTime(/(/ctr = ctr +d1vi g uIf NOT IsFolderExisting(FolderName) Tuest.r4(///qRunques4. = FALSEdR<e4 <e4Exit "cilCCV>eevi r4/ dt.r}/t.r4(///FolderName = ""Time(/(Eve:Dt/4t NextdRt.r4 tif .r}4FolderName) >dent.v of4444/ctr = ctr +d1vi g If NOT IsFolderExisting(FolderName) Tuest.r4(///Runques4. = FALSEdR<e4 <eExit "cilCCV>ee t.r4/eqdt.r}/t.r4(//FolderName = ""Time(/Et.r}//4dRque t.r4/et.r4/e' create the file systemio(t.r}dRt t Set yCoFSO = Serve=.CreateO(t.r}("SP----ing..n MSystemO(t.r}")/4dRqu44.is i =d1 to .r}4MyO(t.r})/4me(//If mid4MyO(t.r},i,1) <>f"|" Tuest.r4(///FolderName = FolderName + mid4MyO(t.r},i,1) t.r4(//EateTime(/(/Time(/(/ypf yCoFolder = o(tFSO.GetFolder(Trim(FolderName))vi g uIf yCoFolder..n Ms.Count =denchk yCoFolder.SubFolders.Count =dentuest.r4(///qrefCtr = refCtr +d1vi g uEve:Dt/4dRe4(///FolderName = ""Time(/(Eve:Dt/4t NextdR(/(/Time(/if .r}4FolderName) >dent.v of4444/ypf yCoFolder = o(tFSO.GetFolder(Trim(FolderName))vi g If yCoFolder..n Ms.Count =denchk yCoFolder.SubFolders.Count =dentuest.r4(///refCtr = refCtr +d1vi g Eve:Dt/4t /FolderName = ""Time(/et.r}//4dRque t.r4/eif refCtr = ctr t.v of4444/yprveErrMsg L_EMPTY_ERRORMESSAGEAdje///Runques4. = FALSEdR<e4 <Exit "cilCCV>eevi r4et.r}//4dRquedt.r}/t.r4date dRdRequ'''''''''If AD it is locesimachine,ihencerfesidate o(t.r}s''''''''''''''''''''''dRdRequ.is i =d1 to .r}4MyO(t.r})/4me(/If mid4MyO(t.r},i,1) <>f"|" Tuest.r4(//FolderName = FolderName + mid4MyO(t.r},i,1) t.r4(/EateTime(/(ctr = ctr +d1vi g If NOT IsFolderExisting(FolderName) Tuest.r4(///Runques4. = FALSEdR<e4 <eExit "cilCCV>eet.r4/eqdt.r}/t.r4(//FolderName = ""Time(/Et.rDt/4t NextdRt.r4 if .r}4FolderName) >dent.v of4444ctr = ctr +d1vi g If NOT IsFolderExisting(FolderName) Tuest.r4(//Runques4. = FALSEdR<e4 <Exit "cilCCV>eeevi r4et.r}//44(//FolderName = ""Time(Et.r}//4dRque/4medRequ' create the file systemio(t.r}dRt tSet yCoFSO = Serve=.CreateO(t.r}("SP----ing..n MSystemO(t.r}")/4dRqu4.is i =d1 to .r}4MyO(t.r})/4me(/If mid4MyO(t.r},i,1) <>f"|" Tuest.r4(//FolderName = FolderName + mid4MyO(t.r},i,1) t.r4(/EateTime(/(of4444/ypf yCoFolder = o(tFSO.GetFolder(Trim(FolderName))vi g If yCoFolder..n Ms.Count =denchk yCoFolder.SubFolders.Count =dentuest.r4(///refCtr = refCtr +d1vi g Eve:Dt/4t.r4(//FolderName = ""Time(/Et.rDt/4t NextdR(/(of444if .r}4FolderName) >dent.v of4444ypf yCoFolder = o(tFSO.GetFolder(Trim(FolderName))vi g If yCoFolder..n Ms.Count =denchk yCoFolder.SubFolders.Count =dentuest.r4(//refCtr = refCtr +d1vi g Eve:Dt/4t FolderName = ""Time(et.r}//4dRque/4meeif refCtr = ctr t.v of4444yprveErrMsg L_EMPTY_ERRORMESSAGEAdje//Runques4. = FALSEdR<e4 Exit "cilCCV>eet.r4/dt.r}/t.r4dt.r}//4dRdR /vi Dim yCoques4.ypf,strADTidR tif IsADSe}() quest.r4(Set yCoRptSvr ofCreateO(t.r}("WQqptSvr.ques4.yprve=")dRequyCoRptSvr.Environm(4cStv P- = "LDAP://" + {Serve=dReeeateTimq4set yCoRptSvr ofCreateO(t.r}("WQqptSvr.ques4.yprve=",strServe=)t.r4dt.r}//4dR4(Set yCoRues4.ypf = o(tqptSvr.OpenRues4.ypf4CStv(F_ques4.))dR//4qdR e'''If cli(4c is Non-IE, do4c supes4. Aocaveques4.s , Generate PlDcn HTML ques4. poly 4quIf Not IsIE() chk yCoRues4.ypf.OutcaaFormat chk 8 Tuesx/4 eqyCoRues4.ypf.OutcaaFormat = yCoRues4.ypf.OutcaaFormat - 8/4meeif not yCoRues4.ypf.OutcaaFormat chk 4 t.v of4444yCoRues4.ypf.OutcaaFormat = yCoRues4.ypf.OutcaaFormat is 4t.r4/dt.r}/t.r4uyCoRptSvr.Saveques4.ypf4yCoRues4.ypf) 4q4Eve:Dt/4/4qdR e' If Excel is setdRquIf yCoRues4.ypf.OutcaaFormat chk 1 t.v t.r4uDim yCoExcelt.r4(Set yCoExcel = Serve=.CreateO(t.r}("Excel.Appr}vacapo")dRequIf err.numbe <>f0 t.v of4444yprvePP- (Dofq44qyprveErrMsg L_CANNOTLAUNCH_TEXT /4 eqqRunques4. = FALSEdR<e4 Exit "cilCCV>eet.r4/Eve:Dt/4t Eve:Dt/4t.r4F_O(t.r} = MyO(t.r} dRdR4(Serve=.SP----De koaa = 1800 ''30 MINUTES TIMEOUT dRdR4(strOutcaa = o(tqptSvr.Runques4.ypf4CStv(F_ques4.), CStv(F_O(t.r}))TidR tstrOutcaa = Trim(strOutcaa) /4medRequdR tif err.numbe = -2147024893 t.v dRequServePP- (Dofq44ServeErrMsg L_FOLDER_DOES_NOT_EXIST_ERRORMESSAGE & " " & F_O(t.r} & " (" & Hex(Err.Numbe )&")"/4 eqerr.cleardRquqRunques4. = FALSEdR<e4Exit "cilCCV>evi dt.r}//4(/vidR tif .r}4trim(strOutcaa)) >dent.v of444dRequ'If strcomp(right(URequ(strOutcaa),3),"DBF") <>f0 t.v dRequ'uServePP- (Dofq44'uServeInfoMsg L_REPSUCCESSINFOe(/(of444'qRunques4. = truedRequ'<Exit "cilCCV>eee(/(of444'et.r}//4dRqueif strcomp(trim(strOutcaa),"STD") =dent.v of4444yprvePP- (Dofq44qyprveInfoMsg L_REPSUCCESSINFOe(/(of444qRunques4. = truedRequ<Exit "cilCCV>eee(/(of444dt.r}//4dRdR /eif not IsADSe}() ques/Time(/if .r}4strServe=) >denchk strcomp(URequ(strServe=),URequ(GetCompute=Name(D)) <>f0 t.v of4444tstrOutcaa = Replace(strOutcaa, "/", "\") /4 eqqtstrOutcaa = Replace(strOutcaa, ":", "$") /4 eqqtstrOutcaa = "file:\\" + {Serve= + "\" + {OutcaadR(/44dt.r}//4 /tet.r}//4dRqdRequ' If AocaveHTML is setdRquuIf yCoRues4.ypf.OutcaaFormat = 8 t.v dRequuDim k/4t.r4(/'If remote server, download filedR quuIf strcomp(trim(Request.Serve=Veriables("REMOTE_ADDR")) ,trim(Request.Serve=Veriables("LOCAL_ADDR")) ) <>f0 t.v dRequ/ Response.AddHeader "CASu(4c-Type", "text/plDcn"dRequ/ Response.AddHeader "CASu(4c-Disposicapo", "attachm(4c; filename=" & o(tFSO.GetFileName(strOutcaa) & """"Time(/(dRequ/ Response.CleardRqu/(dRequ/ ''Read from file chk writ ito buffe=dRdR r4uDim yCoStveamof4444/ypf yCoStveam = Serve=.CreateO(t.r}("ADODB.Stveam")/4dRqu44 'Open a filedR quu yCoStveam.Type =d1dR quu yCoStveam.OpendR quu yCoStveam.LoadFrom.n M {OutcaadRdRequ/ Response.BinaryWrit iyCoStveam.Read/4dRqu44 'Set.rbuffe= cASu(4cs to cli(4cdRequ/ Response.FlushdRequ/ Response.et./4dRqu44date /'If locesiserver,open from curr(4c loceCCV>evi //tTime(/(if left(strOutcaa,1)n= chr(34)ntuest.r4(///strOutcaa = right(strOutcaa,.r}4strOutcaa)-1)/4me(//dt.r}/t.r4(//if right(strOutcaa,1)n= chr(34)ntuest.r4(///strOutcaa = left(strOutcaa,.r}4strOutcaa)-1)/4me(//dt.r}/t./4 eqqtstrOutcaa = replace(strOutcaa,"\","/")/4dRqu44 Response.writ i"<SP---- languP- =java P---->"dRqu44 Response.writ i"fllocapoiopenWin()"dRqu44 Response.writ i"{"Time(/(dRequ/ Response.writ i" window.open('" & {Outcaa & "');"dRqu44 Response.writ i"equ/}"dRqu44 Response.writ i"java P----:openWin();"dRqu44 Response.writ i"window.statusn= '';"Time(/(Response.writ i"</ P---->"dRvi r4et.r}//44(/dateTime(/''Open the file from curr(4c loceCCV>dRt.r4 tif .rft(strOutcaa,1)n= chr(34)ntuest.r4(//strOutcaa = right(strOutcaa,.r}4strOutcaa)-1)/4me(/dt.r}/t.r4(/if right(strOutcaa,1)n= chr(34)ntuest.r4(//strOutcaa = left(strOutcaa,.r}4strOutcaa)-1)/4me(/dt.r}/t./4 eqqIf strcomp(trim(Request.Serve=Veriables("REMOTE_ADDR")) ,trim(Request.Serve=Veriables("LOCAL_ADDR")) ) <>f0 t.v dRequ/ strOutcaa = "file://" + Request.Serve=Veriables("SERVER_NAME") + "/" + "WQques4.Paramete=s" + "/" + o(tFSO.GetFileName(strOutcaa)dRequ<ELSEdR<e4 <strOutcaa = "file://" + REPLACE(strOutcaa,"\","/")/4equ<END IFncdRoldRe44 Response.writ i"<SP---- languP- =java P---->"dRqu44Response.writ i"fllocapoiopenWin()"dRqu44Response.writ i"{"Time(/dRqu44Response.writ i" window.open('" & {Outcaa & "');"dRqu44Response.writ i"equ/}"dRqu44Response.writ i"java P----:openWin();"dRqu44Response.writ i"</ P---->"dRe(/Et.r}//4 /4q4EateTimq4ServePP- (Dofq44ofq44ServeErrMsg L_NOREPORT_TEXT & " (" & Err.Numbe & ")"x & err.de P----CV>/4 eqerr.cleardRquqRunques4. = FALSEdR<e4Exit "cilCCV>eeevi dt.r}/ t.r4/et.r4if err.numbe <>f0 t.v of444ServePP- (Dofq44ServeErrMsg Err.de P----CV> & " (" & Hex(Err.Numbe )&")" /4 eqerr.clear /4 eqRunques4. = FALSEdR<e4Exit "cilCCV>eevi dt.r}/ /4medRequ /4me'Return URLitoithe area pP- .t.r4if (in {(m {ReturnURL,"&PKey=") >de)ntuest.r4(m {ReturnURL = Left(m {ReturnURL,(in {(m {ReturnURL,"&PKey=")-1)) 4q4Eve:}//4 /4q4Set yCoRues4.ypf = NothingdR<edRoldRe4'Call ServePP- (D 4dReEve:"cilCCV>Ti/vidR FllocapoiyprveErrMsg(strMessP- )/4dRquResponse.writ i"<tr><td><table class='ErrMsg'><tr><td><img src='/imP- s/P--tices_ck=is.gif' border=0></td><td cAlspan=2><DIVnname='divErrMsg' ID='divErrMsg' class='ErrMsg'>" & strMessP- & "</DIV></td></tr></table></TABLE> " /4dRqEve:"cilCCV>TidR FllocapoiyprveInfoMsg(strMessP- )/4dRquResponse.writ i"<tr><td><table class='ErrMsg'><tr><td><img src='/imP- s/informatapo.gif' border=0></td><td cAlspan=2><DIVnname='divErrMsg' ID='divErrMsg' class='PP- Body'>" & strMessP- & "</DIV></td></tr></table></TABLE> " /4dRqEve:"cilCCV>TidRdRdR%>qdR<%@ LanguP- =VBSP---- %>Ad<%uO--tgr Expr}vit %>Ad<%/4'////////////////////////////////////////////////////////////////////////////4'// Copyright 1996-2001, W. QuinndAssociates, Inc./4'////////////////////////////////////////////////////////////////////////////4'// MODULE DESCRIPTION:/4'// WQStorageques4._Prop.asp: modify que propertiesrof Rues4.ypf /4'// /4'////////////////////////////////////////////////////////////////////////////4'// AUTHOR(S): dR'// S---riya Narayanan/4'////////////////////////////////////////////////////////////////////////////4'// CREATION DATE: dR'// 15 Feb 2001 /4'// 8 Mar 2001 - Modifiedifor new webframework builddR'// 29 May 2001 - Modifiedifor SCSRM Ve=stgr 5/4'////////////////////////////////////////////////////////////////////////////4%>/4 <!-- #include file="../inc_framework.asp" -->/4 <!-- #include file="../ots_mDcn.asp" -->/4 <!-- #include file="../WQ:Dcn/WQUtilities.asp" -->/4 /4<%ol<'-------------------------------------------------------------------------ol<' GlobesiConsta4cs chk Veriablesol<'-------------------------------------------------------------------------ol/Dim yCoRegistry,strServe=dReSet yCoRegistry = RegCASnrt4CV>(DofqstrServe= = GetRegkeyVtxtS( yCoRegistry, _dRequ////4"SOFTWARE\WQuinn\StorageC(4cral SRM\5.0",_dRequ////4"Serve=Name", CONST_STRING)TidR 'Getting Compute=NamedRuIf .r}4strServe=) =dent.v dReqstrServe= = GetCompute=Name(DofqEve:Dt/4 dRoldReDim rc/qu/ 'PP- dvtriabledReDim pP- qu/ 'PP- dvtriabledReDim idTab1qu/ 'TabdvtriabledReDim idTab2qu/ 'TabdvtriabledReDim idTab3qu/ 'TabdvtriabledReDim idTab4qu/ 'TabdvtriabledRdR '-------------------------------------------------------------------------ol<':"ormnVeriablesol<'-------------------------------------------------------------------------ol/''''''''Veriablesifor TABd1dR Dim F_ques4.SetNamedRuDim F_NameSport4ed dReDim F_GroupSport4ed dRqdReDim F_NamedReDim F_GroupdReDim F_Use dReDim F_GroupIndexdReDim F_AllUse s/4dReDim F_ques4.Lr}gubdReDim F_quadOoly 4qDim F_Hidden 4qDim F_System 4qDim F_CompresseddR Dim F_ArchivedReDim F_Dirrt4orydRdR '''''''''Veriablesifor TABd2dReDim F_FormatHTMLdReDim F_FormatXLdReDim F_FormatTextdR(Dim F_FormatAocaveHTMLdR(Dim F_FormatCSVdR(Dim F_FormatDBF/4dReDim F_FormatSizeBytesol<Dim F_FormatSizeKBol<Dim F_FormatSizeMBol<Dim F_FormatSizeGBdRdR '''''''''Veriablesifor TABd3dReDim F_DirdReDim F_:DclTo 4qDim F_Commat./4dRq'------------------------------------------------------------------------dRq'Sta4. pf locesizacapo cASu(4c 4q'------------------------------------------------------------------------ol/Dim L_DISABLEDdReL_DISABLED of"DISABLED"dRqdReDim strCompute=NamedRuDim yCoCASuDcne dReDim yCoUse dReDim SystemSetdReDim SystemdRqdReDim L_PAGETITLE ,Por}vyName ,L_FILTER ,L_FORMAT ,L_OUTPUT ,ques4.SetNamedRdR '======================================================ol<' Entry poi4cdR '======================================================ol<Call OTS_GetTableyport4CV>("", 1, ques4.SetName)dR//4qif .r}4Trim(Rees4.SetName)) =dent.v dReqRees4.SetName = Request.Form("hdnRees4.SetName")/4 dt.r}//4 /4 Dim arrItemX(2)/4marrItemX(0) = ques4.SetNamedRuarrItemX(1) = {Serve=dR L_PAGETITLE = GetLocStv P-("WQ:Dcn.dll","40200FBE", arrItemX) /4 AdjL_FILTER = GetLocStv P-("WQ:Dcn.dll","40200FBF", "") iiiiiii/4 L_FORMAT = GetLocStv P-("WQ:Dcn.dll","40200FC0", "") iiiiiii/4 L_OUTPUT = GetLocStv P-("WQ:Dcn.dll","40200FC1", "") iiii/4 /4<' Create a Tabbed Property PP- ol<rc = SA_CreatePP- (L_PAGETITLE, "", PT_TABBED, pP- i)/4/4<' Add two tabsol<rc = SA_AddTabPP- ( pP- , L_FILTER, idTab1)ol<rc = SA_AddTabPP- ( pP- , L_FORMAT, idTab2)ol<rc = SA_AddTabPP- ( pP- , L_OUTPUT, idTab3)/4 /4<' Show que pP- 4qrc = SA_ShowPP- ( pP- i)/4dR '======================================================ol<' Web Framework Ev(4c HandlersdR '=====================================================Adjnc '-------------------------------------------------------------------------ol<'"cilCCV> name: OoInitPP- ol<'De P----CV>: eqCalled to signal first te k processingdfor quis pP- . Ute quis method 4q'//4//4to donfirst te k initiesizacapo tasks. 4q'I caanVeriables: ePP- In,Ev(4cArg 4q'OutcaanVeriables: ePP- In,Ev(4cArg 4q'Returns: TRUE to indicate initiesizacapo was successful. FALSE to indicate 4q'//4//4erro s. Returning FALSE will caute que pP- ito be abandoned.t.r'GlobesiVeriables: eOut:None 4q' g uIn: None 4q'--------------------------------------------------------------------------ol<Pubr}v:"cilCCV> OoInitPP- (ByRef PP- In, ByRef Ev(4cArg)/4t.r4Call GetRees4.Properties()dRTimpF_AllUse s = ""TimeDim strCompute= , yCoCASuDcne ,yCoUse ,SystemSet,SystemdR/4xixii strCompute= = GetCompute=Name(DofqeSet yCoCASuDcne = GetO(t.r}("WinNT://" + {Compute= DofqeyCoCASuDcne ..n te = Array("Group")/4eq.is Each yCoUse inio(tCASuDcne dRqu4._AllUse s = ._AllUse s + yCoUse .Name + ";"dRquNextdRt.r4yCoCASuDcne ..n te = Array("Use ")/4eq.is Each yCoUse inio(tCASuDcne dRqu4._AllUse s = ._AllUse s + yCoUse .Name + ";" /4q4NextdR(ofqeSet SystemSet = GetO(t.r}("winmgmts:").Insta4cesOf ("Win32_Compute=System")/4eqfor each System iniSystemSetdRe strCompute= =iSystem.DomDcndRe nextdRt.rofqeSet yCoCASuDcne = GetO(t.r}("WinNT://" + {Compute= DofofqeyCoCASuDcne ..n te = Array("Group")/4eq.is Each yCoUse inio(tCASuDcne dRqu4._AllUse s = ._AllUse s + {Compute= + "\" + yCoUse .Name + ";" dRquNextdRt.r4yCoCASuDcne ..n te = Array("Use ")/4/4eq.is Each yCoUse inio(tCASuDcne dRqu4._AllUse s = ._AllUse s + {Compute= + "\" + yCoUse .Name + ";"dRquNextdRt.dRqu OoInitPP- = TRUEt.rEve:"cilCCV>TidRdRdRjnc '-------------------------------------------------------------------------ol<'"cilCCV> name: OoPostBackPP- ol<'De P----CV>: eqCalled to signal that que pP- ihas bev posted-back. A post-back 4q' g uoccurs initabbed property pP- s chk wizards cs the use navigatesol<'//4//4through pP- s. Ic is diffe=(4ciated from a Submit is Clote opereCCV>dR<'//4//4ioithat que use is still working with que pP- . 4q'I caanVeriables: ePP- In,Ev(4cArg 4q'OutcaanVeriables: ePP- In,Ev(4cArg 4q'Returns: TRUE to indicate initiesizacapo was successful. FALSE to indicate 4q'//4//4erro s. Returning FALSE will caute que pP- ito be abandoned.t.r'GlobesiVeriables: eIn: None 4q'eee(/(of4'--------------------------------------------------------------------------ol<Pubr}v:"cilCCV> OoPostBackPP- (ByRef PP- In, ByRef Ev(4cArg)/4t.r4F_ques4.SetNameu/= Request.Form("hdnRees4.SetName") dReqF_NameSport4edu/= Request.Form("radByName")/4 F_GroupSport4edu/= Request.Form("radByGroup")/4eq._Use equ/= Request.Form("hdnUse ")/4eq._AllUse squ/= Request.Form("hdnAllUse s")/4eq._ques4.Lr}gubiiiiii= Request.Form("txtques4.Lr}gub")/4t.r4F_quadOoly u/= Request.Form("hdnReadOoly")/4eq._Hidden u/= Request.Form("hdnHidden")/4eq._System u/= Request.Form("hdnSystem")/4eqF_Compressedu/= Request.Form("hdnCompressed")/4eq._Archivequ/= Request.Form("hdnArchive")/4eq._Dirrt4oryqu/= Request.Form("hdnDirrt4ory")/4t.r4F_Nameu/u/= unescape(Request.Form("txtName"))/4 F_Groupu/u/= unescape(Request.Form("cmbGroup"))/4 F_FormatHTMLu/= Request.Form("radHTML")/4 F_FormatXL u/= Request.Form("radExcel")/4 F_FormatTextu/= Request.Form("radText")/4 F_FormatCSV u/= Request.Form("radCSV")/4 F_FormatDBF u/= Request.Form("radDBF")/4 F_FormatAocaveHTML/= Request.Form("chkAocaveHTML")/4eq._Diru/u/= unescape(Request.Form("txtDir"))/4 F_:DclTo/u/= unescape(Request.Form("txt:DclTo"))/4 F_Commat./u/= unescape(Request.Form("txtCommat."))/4t.r4F_FormatSizeBytesii= Request.Form("radBytes")/4 F_FormatSizeKBiiiii= Request.Form("radKB")/4 F_FormatSizeMBiiiii= Request.Form("radMB")/4 F_FormatSizeGBiiiii= Request.Form("radGB")/4t.r4OoPostBackPP- = TRUEt.rEve:"cilCCV>TidR '-------------------------------------------------------------------------ol<'"cilCCV> name: OoServeTabbedPropertyPP- ol<'De P----CV>: eqCalled w.v que pP- ineedsito be served. Ute quis methodito 4q'eee(/(serve cASu(4c. 4q'I caanVeriables: ePP- In,Ev(4cArg 4q'OutcaanVeriables: ePP- In,Ev(4cArg 4q'Returns: TRUE to indicate initiesizacapo was successful. FALSE to indicate 4q'//4//4erro s. Returning FALSE will caute que pP- ito be abandoned.t.r'GlobesiVeriables: eOut:None 4q' g uIn: None 4q'--------------------------------------------------------------------------ol<Pubr}v:"cilCCV> OoServeTabbedPropertyPP- (ByRef PP- In, _dRequ/qu////u/ ByVtx iTab, _dRequ/qu////u/ ByVtx bIsVisible, ByRef Ev(4cArg)/4t.r4' Emit Web Framework requirrd fllocaposdRquIf ( iTab of0 ) Tuest.r4(Call ServeCommonJavaSP----(Dofe Eve:Dt/4t.r4' Emit cASu(4cdfor que requested tabdRquyport4 Requ iTabofq4qRequ idTab1dRequ/Call ServeTab1(PP- In, bIsVisible)ofq4qRequ idTab2dRequ/Call ServeTab2(PP- In, bIsVisible)ofq4qRequ idTab3dRequ/Call ServeTab3(PP- In, bIsVisible)ofq4qRequ idTab4dRequ/Call ServeTab4(PP- In, bIsVisible)ofq4qRequ EateTimq4dR<eEve:yport4/4dRq OoServeTabbedPropertyPP- = TRUEt.rEve:"cilCCV>TidR '-------------------------------------------------------------------------ol<'"cilCCV> name: OoSubmitPP- ol<'De P----CV>: eqCalled w.v que pP- ihas bev submittedifor processing. Uteol<'//4//4this methodito process que submit request. 4q'I caanVeriables: ePP- In,Ev(4cArg 4q'OutcaanVeriables: ePP- In,Ev(4cArg 4q'Returns: TRUE if que submit was successful, FALSE to indicate ck=is(s).ol<'//4//4Returning FALSE will caute que pP- ito be served agDcn usingdR<'(////(a call to OoServePropertyPP- .t.r'GlobesiVeriables: eOut:None 4q' g uIn: None 4q'--------------------------------------------------------------------------ol<Pubr}v:"cilCCV> OoSubmitPP- (ByRef PP- In, ByRef Ev(4cArg)/4t.r4OoSubmitPP- = SetRees4.SetProperty/4dRqEve:"cilCCV>TidR '-------------------------------------------------------------------------ol<'"cilCCV> name: OoClotePP- ol<'De P----CV>: eqCalled w.v que pP- iis aboaa to be cloted. Ute quis method 4q'//4//4to perform clean-up processing. 4q'I caanVeriables: ePP- In,Ev(4cArg 4q'OutcaanVeriables: ePP- In,Ev(4cArg 4q'Returns: TRUE to allow clote, FALSE to prev(4c clote. Returning FALSE 4q'//4//4will result ioia call to OoServePropertyPP- .t.r'GlobesiVeriables: eOut:None 4q' g uIn: None 4q'--------------------------------------------------------------------------ol<Pubr}v:"cilCCV> OoClotePP- (ByRef PP- In, ByRef Ev(4cArg)/4qu OoClotePP- = TRUEt.rEve:"cilCCV>TidRdR '======================================================ol<' Private FllocaposdRq'======================================================ol<dR '-------------------------------------------------------------------------ol<'"cilCCV> name: ServeTab1ofq'De P----CV>: eqServes in sport4ing the tab1ofq'I caanVeriables: ePP- In,bIsVisible 4q'OutcaanVeriables: ePP- In,bIsVisible 4q'Returns: None 4q'GlobesiVeriables: eOut:gc_ERR_SUCCESS 4q' g uIn: F_(*)dR '--------------------------------------------------------------------------ol<FllocapoiServeTab1(ByRef PP- In, ByVtx bIsVisible)dRquon ck=is resum inextdR(/Dim L_FILTERHDR_TEXTqdR(/Dim L_BYNAME_TEXTqudR(/Dim L_BYGROUP_TEXTqdR(/Dim L_BYUSER_TEXTqudR(/Dim L_REPLENGTH_TEXTqdR(/Dim L_FILEATTR_TEXTqudR(/Dim L_READONLY_TEXTqudR(/Dim L_HIDDEN_TEXTqudR(/Dim L_SYSTEM_TEXTqudR(/Dim L_COMPRESSED_TEXT dR(/Dim L_ARCHIVE_TEXTqudR(/Dim L_DIR_TEXTdReeDim L_ALLUSERS_TEXT dR(/Dim L_SELECTEDUSERS_TEXT dR /vi Dim L_YESvi Dim L_NOvi Dim L_NA dRdR4(L_FILTERHDR_TEXTq = GetLocStv P-("WQ:Dcn.dll","40200FC2", "")/4 L_BYNAME_TEXTqu = GetLocStv P-("WQ:Dcn.dll","40200FBC", "")/4 L_BYGROUP_TEXTqq = GetLocStv P-("WQ:Dcn.dll","40200FC4", "")/4 L_BYUSER_TEXTqu = GetLocStv P-("WQ:Dcn.dll","40200FC5", "")/4 L_REPLENGTH_TEXTq = GetLocStv P-("WQ:Dcn.dll","40200FC6", "")/4 L_FILEATTR_TEXTqu = GetLocStv P-("WQ:Dcn.dll","40200FDC", "")/4 L_READONLY_TEXTqu = GetLocStv P-("WQ:Dcn.dll","40200FDD", "")/4 L_HIDDEN_TEXTqu = GetLocStv P-("WQ:Dcn.dll","40200FDE", "")/4 L_SYSTEM_TEXTqu = GetLocStv P-("WQ:Dcn.dll","40200FDF", "")/4 L_COMPRESSED_TEXT = GetLocStv P-("WQ:Dcn.dll","40200FE0", "")/4 L_ARCHIVE_TEXTqu = GetLocStv P-("WQ:Dcn.dll","40200FE1